uses crt;
var an,binh:real;
begin
clrscr;
write('Nhap chieu cao cua An(cm): ');readln(an);
write('Nhap chieu cao cua Binh(cm): ');readln(binh);
if an=binh then writeln('Hai ban cao bang nhau') else
if an>binh then writeln('An cao hon Binh') else
writeln('Binh cao hon An');
readln
end.