intreg x,y,c;
citeste x;
cat_timp x=0;
y <- x;
daca x mod 2 = 0;
atunci
daca x=y atunci c <- x;
daca x>y atunci c <- y;
altfel c <- x;
altfel scrie "nu sunt valori pare";
citeste x;
sfarsit cat_timp
scrie c,"este cel mai mica valoare para din sirul de numere";
sfarsit.