Question

Вывести код символа по введенному символу. Нужно написать программку.

Answer 1

var

  c:char;

begin

  write('Введите символ ');

  readln(c);

  writeln('Его номер - ', ord(c));

end.