Exercicio 1

program_kleiton;
var val1,val2:integer;
beginreadln(val1);
readln(val2);
if (val1>val2) thenwriteln (val1);
elseif(val2>val1) thenwriteln (val2);i
f (val1 mod 2) = 0 thenwriteln ('numero par');
elsewriteln ('numero impar');
if val2 mod 2 = 0 thenwriteln ('numero par');
elsewriteln ('numero impar');
end.