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 Jaci
var val3,val4: integer;
Begin
readln (3, 4)
if (3 >4 ) then
writeln ( 3 );
if (4> 3 then
write ln( 4);
If (3 mod 2=0)then
writeln ('par');
else
write ('impar');

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

end.

2) Qual será o valor exibido na tela pelo algoritmo a seguir?

program exemplo;
var val, num: integer;
begin
val:=5;
num:=8;
if (val MOD 2= 0) then
begin
write (val);
end;
else
begin
write (num);
end;
end.

Resposta: 8.