$\text{PROGRAM Ai_cao_hon ;}$ $\\$ $\text{Uses crt ;}$ $\\$ $\text{Var Long, Trang: Real; }$ $\\$ $\text{Begin }$ $\\$ $\text{clrscr ;}$ $\\$ $\text{Write ( 'Nhap chieu cao cua Long: ') ; readln(Long) ;}$ $\\$ $\text{Write ( 'Nhap chieu cao cua Trang: ') ; readln(Trang) ;}$ $\\$ $\text{If Long>Trang then writeln ( 'Ban Long cao hon' ) ;}$ $\\$  $\text{If Long Trang then writeln ( 'Ban Trang cao hon' ) ;}$ $\\$ $\text{Else writeln ( 'Hai ban cao bang' ) ;}$ $\\$ $\text{Readln;}$ $\\$ $\text{End.}$ 

program Ai_cao_hon;

uses crt;

var Long, Trang : Real;

begin

       clrscr;

       write('Nhap chieu cao cua Long :');  readln(Long);

       write('Nhap chieu cao cua Trang :');   readln(Trang);

       If Long > Trang then writeln('Ban Long cao hon');

       If Long < Trang then writeln('Ban Trang cao hon');

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

       readln

end.