1) Faça um algoritmo que leia 2 valores inteiros, calcule e escreva qual deles é maior, bem como escrevendo se estes valores são pares ou ímpares.
Program one;
var x,y: inteiro;
Begin
readln (x, y)
if (x > y) then
writeln ( x );
if (y > x) then
write ln( y );
If (x mod 2=0) then
writeln ('par');
else
write ('impar');
if (y mod 2=0) then
writeln ('par');
else
write ('impar');
end.
