* Viết chương trình nhập chiều cao của 2 bạn in ra kết quả so sánh chiều cao 2 bạn đó.

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.

program aicaohon;

uses crt;

var An, Binh :real;

begin

clrscr;

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

if An < Binh then writeln('Ban Binh cao hon')

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

readln

end.