{* Код символа *}

Unit CDCHAR;
Interface
Implementation
Begin
 writeln('Код символа');
End.

Program pas;

Uses cdchar.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  ch : char;
  a  : integer;
  b  : integer;
Begin
  For a := 1 To 5 Do {* Цикл для a => [1 .. 5] *}
  Begin
    readln(ch);
    writeln(' = ', ord(ch) );
  End;
  readln; {* Ждем нажатия Enter *}
End.