Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / Prog08

program prog08;
uses crt;
var c: char;
    n: byte;
begin
 clrscr;
 write(' Введите число в диапозоне от 32 до 255 : ');
 read(n);
 writeln(n, ' это номер символа : ', chr(n));
 readln;
end.