Program Hotboy;
Uses crt;
Var a,b : byte;
Begin
Clrscr;
Write('nhap so ban nam'); readln(a);
Write('nhap so ban nu'); readln(b);
If a>b then write('so ban nam nhieu hon ban nu') ;
If a<b then write('so ban nu nhieu hon so ban nam');
If a=b then write('hai ben bang nhau');
Readln
End.