Kodas:

program Pamoka1;

var a : integer; {kintamojo tipas integer naudojamas skaičių intervalui
nuo -32768 iki 32767 išreikšti}

begin

writeln('Įveskite skaičių'); {eilutė, kurią matysite iškart atidarę programą}

readln(a); {šia eilute programa nuskaito ir užfiksuoja tą ką jus įvedėte}

writeln('Jūs įvedėte: ',a); {ši eilutė parašys ką įvedėte}

readln; {ši eilutė reikalinga, kad langas neišsijungtų jums nepamačius kas įvyko}

end.