uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);</p><p>write('Nhap b='); readln(b);</p><p>if a>b then writeln('So lon nhat trong hai so la: ',a);

if b>a then writeln('So lon nhat trong hai so la: ',b);

if a=b then writeln('Hai so bang nhau');

readln;

end.