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.

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

PROGRAM ALGORÍTMO;
VAR V1,V2 PAR:INTEGER;
BEGIN
READ(V1,V2);
IF(V1,V2);WRITE(V1);
ELSE
IF(V2>V1)THEN;
WRITE(V2);
IF(V1MOD2=0)THEN;
WRITE("OVALOR1ÉPAR");
ELSE
WRITE(IMPAR);
END.