program ct;
uses crt;
var trang,ngan:integer;
begin
clrscr;
write('nhap chieu cao cua trang:=');readln(trang);
write('nhap chieu cao cua ngan:=');readln(ngan);
if trang>ngan then writeln(trang,' cao hon ngan');
if trang<ngan then writeln(ngan,'cao hon trang');
if trang= ngan then writeln('trang bang ngan');
readln
end.