Составить программу которая определяет коды двух введенных с клавиатуры символов (паскаль)

Question

Составить программу которая определяет коды двух введенных с клавиатуры символов (паскаль)

Answer 1

var a, b: char;

begin

  writeln('Введите первый символ');

  readln(a);

  writeln('Введите второй символ');

  readln(b);

  writeln('Код первого символа равен ', ord(a), ', код второго символа равен ', ord(b));

end.