Запишем на языке Паскаль программу, в которой для введённой с клавиатуры буквы на экран выводится её код. Затем на экран выводится строка, представляющая собой последовательность из трёх букв используемой кодовой таблицы: буквы, предшествующей исходной; исходной буквы; буквы, следующей за исходной.

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.