program solonhon;
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap hai so:'); readln(a,b);
if a>b then write('a lon hon b')
else write('b lon hon a');
readln;
end.
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln('So lon hon la: ',a:4:2)
else if b>a then writeln('So lon hon la: ',b:4:2)
else writeln('Hai so bang nhau');
readln;
end.