Algoritmo exercício 1

program_thales;

var val1,val2:integer;

begin
readln(val1);
readln(val2);
if (val1>val2) then
writeln (val1);
else
if(val2>val1) then
writeln (val2);
if (val1 mod 2) = 0 then
writeln ('numero par');
else
writeln ('numero impar');
if val2 mod 2 = 0 then
writeln ('numero par');
else
writeln ('numero impar');
end.