Questão 3

program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (val >=1 E val<=8) then
_____begin
_______write (val);
_____end;
____else
_____begin
_______write (num);
_____end;
end.
R: 5.

Questão 2

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: 8

Algoritmo 1

Program algoritmo;
var v1,v2 par:integer;
begin
read(v1,v2);
if(v1,v2);write(v1);
else
if(v2>v1)then;
write(v2);
if(v1 mod 2=0)then;
write("0 valor1é par");
else
write(impar);
end.