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

program prog09;
uses crt;
var c: char;
begin
 clrscr;
 write(' Введите один символ : ');
 c:=readkey; writeln(c);
 writeln(' Предыдущий : ', pred(c));
 writeln(' Следующий : ', succ(c));
 readln;
end.