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.