Program exemplo3;
var valor1, valor2, par: integer;
begin
read(valor1, valor2)
if
("valor1>valor2") then
write ("valor1")
else
write ("valor2")
begim
if
(valor1 mod 2=0) then
write ("par")
else
write ("impar")
end;
end.