Составить программу, которая определяет код введенного с клавиатуры символа S и M

var a, b: char;

begin

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

  readln(a);

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

  readln(b);

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

end.

так попробуй