Постройте программу с этой функцией pred(ch)
Var ch: char; begin write('Введите символ: '); read(ch); writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch)); end.