Napisati program za upis i ispis broja.

Listing programa:

PROGRAM Ulaz;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  a : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('Ucitaj i ispisi broj');      { naslov }
  WRITE('Broj');                        { ulazna promjenljiva }
  READLN(a);                            { ulaz - ucitavanje promjenljive }
  
  WRITELN('a = ', a);                   { izlaz - ispis }
END.

Ispis na ekranu:

Index