3) Resposta.

program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (5 >=1 E 5<=8) then
_____begin
_______write (5); (sera escrito a primeira condição pois é verdadeira!)
_____end;
____else
_____begin
_______write (num);
_____end;
end.

2)Resposta

program exemplo;
var val, num: integer;
begin
val:=5;
num:=8;
if (5 MOD 2= 0) then (5 mod 2 = 1 intão não sera igual a 0)
begin
write (5); (não sera atribuido esse valor)
end;
else
begin
write (8); (será 8 a resposta )
end;