1. Составьте программку, которая:a) определяет коды 2-ух введенных с клавиатуры знаков.б)

а), б)

var a, b, c: char;

begin

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

 readln(a, b, c);

 writeln('Результат сцепления: ', a+b+c);

 if agt;b then writeln(a,'gt;', b);

 if agt;c then writeln(a,'gt;', c);

 if a=b then writeln(a, '=', b);

 if a=c then writeln(a, '=', c);

 if alt;b then writeln(a, 'lt;', b);

 if alt;c then writeln(a, 'lt;', c);

 if bgt;c then writeln(b, 'gt;', c);

 if blt;c then writeln(b, 'lt;', c);

end.

в)

var a, b: char;

begin

 writeln('Введите 2 знака');

 readln(a, b);

 if agt;b then writeln(b,'  ', a);

 if alt;b then writeln(a,'  ', b);

 if a=b then writeln(a,'  ', b);

end.

если верно дай пожалуйста лутший ответ