Program chieu_cao;

Uses crt;

Var a,b:real;

Begin

  Clrscr;

  Write('Nhap chieu cao cua hai ban');

  Readln(a,b);

  If a>b Then Write(a)

  Else

     Begin

     If a<b Then Write(b)

     Else Write('hai ban cao bang nhau');

     End;

  Readln;

End.

#NhậtGaming

var htt,I: integer;

Begin

         write('nhap chieu cao cua htt:');readln(htt);

         write('nhap chieu cao cua I:');readln(I);

         if htt>I then write('htt cao hon I')

           else

                 begin

                          if htt<I then write('I cao hon htt')

                            else

                                  write('htt cao bang I');

                 end;

         readln;

End.