{* Вывод таблицы символов ASCII *}

Unit PROGRAM_ASCII;
Interface
Implementation
Begin
 writeln('Выводит на экран все символы и их коды.');
End.

Program ASCII;

Uses program_ASCII.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  i : integer;
  k : integer;
Begin
  clrscr; {* Очистка экрана *}
  For i := - 9 To 13 Do
  Begin
    For k := 1 To 11 Do {* Цикл для k => [1 .. 11] *}
      Write((i + k * 23) Mod 256 , '  ', Chr(i + k * 23), ' ');
    Writeln; {перевод строки}
  End;
  Readkey; {ожидание нажатия любой клавиши}
End.