Составить программу : 
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.