Составить программу которая преобразует символ в числовой код в паскале.

Var
  a: char;

begin
  writeln('Введите символ');
  readln(a);
  writeln(ord(a));  //функция ord(a) возвращает числовой код символа а
end.