var a, b: char;
begin
writeln('Введите первый символ');
readln(a);
writeln('Введите второй символ');
readln(b);
writeln('Код первого символа равен ', ord(a), ', код второго символа равен ', ord(b));
end.
