Resultados.
program exemplo;

var val, num: integer;

begin
val:=5;
num:=8;
if (5>=1 E 5<=8) then ____begin (Ira atender só o 1º comando pois as duas condições sao verdadeiras)

write (5);
end;
else
begin
write (8);
end;
end.