exercio 1

program santos
var val1,val2:integer
begin;
readln(val1);
readln(val2);
lf(val > val2) then
writeln(val1);
Wlsewriteln(val2 > val1) then
writeln(val2);
lf(val1 mod 2)= 0 then
Write (numero par);
Else
lf(val2 mod 2)= 0 then
writeln(numero impar);
ElseWriteln(numero impar);
End.