uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

if a <> b then

begin

if a > b then writeln(b, a:4);

if a < b then writeln(a, b:4);

end

else writeln('hai so bang nhau');

readln

end.

uses crt;

var a,b:longint;

begin

clrscr;

write('a,b');readln(a,b);

if (a<0) and (b>0) then writeln(a,'   ',b);

if (a>0) and (b<0) then writeln(b,'  ',a);

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

if (a<0) and (b<0) then writeln(a,b,'cung am');

if (a>0) and (b>0) then writeln(a,b,'cung duong');

readln

end.