Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите, прошу.
Составить программу, которая вводит с клавиатуры один символ и выводит на экран два символа стоящие до и после этого символа.

Ответ оставил Гость

Var Ch : Char;
Begin
  Readln(Ch);
  Writeln(Chr(Ord(Ch)-1),Chr(Ord(Ch)+1));
end.