Algoritmo "3"

program exemplo;
var,val,num:interger;
begin
val:=5;
num:=8;
if(8>=1 E 8<=8)then
begin
write(num);
end;