Đáp án:

Program Ban_nao_cao_hon

uses crt

var Anh Quan , Thuy Anh : real

begin

       clrscr

          write (' Nhap chieu cao cua Anh Quan:') ; readln (Anh Quan)

          write (' Nhap chieu cao cua Van Anh ;') , readln (Van Anh)

          if Anh Quan > Van Anh then writeln ( ' Anh Quan cao hon ')

          if Anh Quan < Van Anh then writeln ( ' Van Anh cao hon ')

          else writeln (' Hai ban cao bang nhau')

          readln

     end

program ct;

uses crt;

var anh quan, thuy anh: real;

begin

clrscr;

write('chieu cao cua anh quan:=');readln(anh quan);

write('chieu cao cua thuy anh:=');readln(thuy anh);

if anh quan>thuy anh then writeln(' ban anh quan cao hon');

if quan<anh then writeln('ban thuy anh cao hon') else writeln('hai bang bang nhau');

readln;

end.