Запишем на языке паскаль программу, в которой для введённой с клавиатуры буквы на экран выводится её код. затем на экран выводится строка, представляющая собой последовательность из трёх букв используемой кодовой таблицы: буквы, предшествующей исходной; исходной буквы; буквы, следующей за исходной.
var a:char;
k:integer;
s:string;
begin
writeln('Введите букву: ');
readln(a);
k:=ord(a);
writeln('Код буквы ',a,' = ',k);
s:=chr(k-1)+chr(k)+chr(k+1);
writeln(s);
end.