Kodas:

program pamoka;

var a, b : integer; {visi kintamieji - skaičiai}

begin

WriteLn('Įveskite pirma skaičių:'); {prašo įvesti pirmą skaičiu}

Readln(a); {nuskaito pirmą skaičių}

WriteLn('Įveskite antrą skaičių:'); {prašo įvesti antrą skaičių}

Readln(b); {nuskaito antrą skaičių}

IF a<b THEN WriteLn(a,' mažesnis už ',b) {jei a mažiau už b, išveda atitinkamą tekstą}

ELSE IF a>b THEN WriteLn(a,' didesnis už ',b) {kitu atveju, jei a daugiau už b, išveda atitinkamą tekstą}

ELSE WriteLn(a,' lygus ',b); {kitu atveju išveda, kad skaičiai lygūs}

Readln;

end.