Algoritmo "3"

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

Algoritmo "2"

program exemplo;
var val,num:interger;
begin
val:=5
num:=8
if(5mod2=0)then
write(num);
end;

Algorítmo =D

program algorítmo;
var V1,V2 par:integer;
begin
read(v1,v2);
if(v1,v2);then;
write (v1);
Else
if(v2>v1)then;
write (v2)
if(v1mod 2=0)then;
write("0 valor 1 é par")
else
write ("impar")
end.