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

program zz1;

var a:integer; / / задаем переменную целого типа

begin

write (' введите числовой код '); / / вводим с клавиатуры число

read (a);

writeln (' символ, который соответствует введенному числовому коду = ', chr (a)); / / выводим на экран один ответ

writeln (' символ, который следует за введенным = ', chr (a+1)); / / выводим другой ответ

end.