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

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