program ascii_kod_znaku;
uses crt;
var znak: char;
begin
  writeln('Stlac lubovolnu klavesu');
  readln(znak);
  writeln('Stlacil si: ',znak);
  writeln('ASCII kod znaku je: ',ord(znak));
  readln;
end.