Đá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