exercicio 3

program kleiton;
var num1,num2:interger;
impar,par:string;
BeginReadln(num1);
Readln(num2);
If (num1>num2) ThenWriteln (num1);
ElseIf(num2>num1) ThenWriteln (num2);
If (num1 MOD 2) = 0 ThenWriteln ('Par');
ElseWriteln ('Impar');
End.
O resultado que será mostrado na tela é 5