Câu 1 : Cho chiều cao hai bạn Nam và Linh . Em hãy viết chương trình in ra chiều cao của bạn có số đo cao hơn

program aicaohon;

uses crt;

var Nhi, Tram:real;

begin

clrscr;

write('nhap chieu cao cua Nhi=');readln(Nhi);

write('nhap chieu cao cua Tram='); readln(Tram);

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.

uses crt;

var a, b : real;

begin

clrscr;

write('Nhap chieu cao Nam va Linh : '); readln(a, b);

if a > b then write('Nam cao hon');

if a < b then write('Linh cao hon');

if a = b then write('Nam bang Linh');

readln

end.