Program ai_cao_hon;

uses crt;

var a, b: real;

begin

clrscr;

write('Nhap chieu cao ban a:');

readln (a);

write('Nhap chieu cao ban b:');

readln(b);

if a>b then write ('Ban a cao hon ban b') else

if a<b then write ('Ban b cao hon ban a') else write ('Ban a bang ban b'); 

readln

end.

program ctpt;

uses crt;

  var a, b: real;

begin

             clrscr;

             write('Chieu cao ban a = '); readln(a);

             write('Chieu cao ban b = '); readln(b);

             if a>b then write('Ban a cao hon ban b') else

                    if a<b then write('Ban a thap hon ban b') else

                                 write('Ban a bang ban b');

             readln

end.