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 porque as duas e verdadeira)
write (5);
;end;
else
begin
write (8);
end.