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

program prog14;
uses crt;
var c: char;
begin
 clrscr;
 repeat
  c:=readkey;
  write(' ', c, ' - ', ord(c));
 until (c='q') or  (c='Q') or (c='Й') or (c='й');
end.