Question

составить программу, которая выводит на экран символы с 33 по 255 и их номера

Answer 1

var i:integer;

Begin

  for i:= 33 to 255 do

    writeln(i,' = ', chr(i));

End.