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

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

Задать свой вопрос
1 ответ
Var Ch : Char;
Begin
  Readln(Ch);
  Writeln(Chr(Ord(Ch)-1),Chr(Ord(Ch)+1));
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт