Распечатайте символы, соответствующие различным кодам, и одновременно определите, какой максимальный код можно использовать.

{Возьмем N = 300, заметим, что после 255 символы уже не появляются. Таким образом, мы выяснили, что максимальный код может быть 255.}

program prim34;
  uses crt;
  var i,n: byte; {описание данных}
begin
  clrscr;
  n:=255
  for i: = 0 to N do
  writeln(i,' ' chr(i));
end.