uses crt; var a,b:longint; begin clrscr; write('a,b= ');readln(a,b); if a=b then writeln('a=b') else if a>b then writeln('a>b') else writeln('a<b'); readln end.
uses crt; var a,b:longint; begin clrscr; write('a,b= ');readln(a,b); if a=b then writeln('a=b') else if a>b then writeln('a>b') else writeln('a<b'); readln; end.