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

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