program aicaohon;

uses crt;

var Nhi, Tram:real;

begin

clrscr;

write('nhap chieu cao cua Nhi=');readln(Nhi);</p><p>write('nhap chieu cao cua Tram='); readln(Tram);</p><p>if Nhi>Tram then writeln('Ban Nhi cao hon');

if Tram>Nhi then writeln('Ban Tram cao hon')

else writeln('hai ban cao bang nhau');

readln

end.