Program BinhiucuaTri ;
uses crt ;
var a , b : integer ;
begin
clrscr ;
write ( ' nhap chieu cao ban Long ' ) ;
readln (a) ;
write ( ' nhap chieu cao ban Trang ' ) ;
readln (b) ;
If a > b then wirte ( ' ban Long cao hon ban Trang ' ) else
if a < b then wirte ( ' ban Trang cao hon bạn Long ' ) else
write ( ' 2 ban bang nhau ' ) ;
readln ;
end.