Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / Prog07

program prog07;
uses crt;
var c: char;
begin
 clrscr;
 write(' Введите один символ : ');
 c:=readkey; write(c);
 writeln(' Код символа : ', ord(c));;
 readln;
end.