Kodas:

program Pamoka3;

var a : integer; {apie šį kintamąjį jau mokėmės ;) }

b : boolean; {loginis kintamojo tipas galintis turėti tik vieną reikšmę - False (klaidingas) arba True (teisingas)}



begin

Writeln('Įveskite skaičių');

readln(a); {nuskaitomas įvestas skaičius}

b:=a<10; {a(įvestas skaičius) yra mažiau už 10}

Writeln('Jūsų įvestas skaičius yra mažesnis už 10'); {Pateikiamas teiginys}

Writeln(b); {Teiginys arba patvirtinamas (TRUE) arba paneigiamas (FALSE)}



Readln;

end.