program kodASCII;  //názov programu
uses crt;          //unit
var z:char;        //deklarácia premenných z, i
    i:integer;
begin       //začiatok programu
  clrscr;     //vymaže obrazovku
     repeat     //začiatok cyklu
      writeln('stlac klaves');   //výpis na obrazovku
      writeln('(pre koniec stlac medzernik)');  //výpis na obrazovku
      z:=readkey;   //načíta vybratý znak z klávesnice a vráti jeho hodnotu
      writeln(z);   //vypíše hodnotu znaku
      writeln(ord(z));   //vypíše hodnotu znaku typu Char, resp. vymenovaný typ
     until z=' ';   //koniec cyklu
end.    //koniec programu