Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p06

program p06;
uses crt;
var c: char;
begin
 clrscr;
 repeat
  c:=readkey;
  write(' ', c, ' - ', ord(c));
 until ord(c)=27;
end.