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.

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
write (num);
end;
end.
R=8

Algoritmo



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.R=5