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 géh;
var (v1,v2): integer;
Begin
readln (v1, v2)
if (v1 < v2) then
writeln ( v1 );
if (v2 > v1) then
write ln( v2 );
If (v1 mod 2=0) then
writeln ('par');
else
write ('impar');

if (v2 mod 2=0) then
writeln ('par');
else
write ('impar');

end.