Составить программу:

1) которая определяет коды двух введённых с клавиатуры символов.

коды ...

var a, b:char;

begin

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

readln (a, b) ;

writeln ('код 1 числа - ', ord (a)) ;

writeln ('код 2 числа - ', ord (b)) ;

if ord (a) < ord (b) then

writeln ('a < b')

else if ord (a) > ord (b) then

writeln ('b < a')

else writeln ('a = b') ;

readln;

end.