Ai cao hon sửa thành Ai_cao_hon

Read sửa thành real

Writeln('hai ban lun bang nhau); sửa thành Writeln('hai ban lun bang nhau');

1)       program AI_cao_hon;

2)       uses crt;

3)       var Long, Trang : real;

4)       begin

5)       clrscr;

6)       write('nhap chieu cao cua Long :');

7)       readln(Long);

8)       write('nhap chieu cao cua Trang :');

9)       readln(Trang);

10)     if Long > Trang then  writeln('Ban Long cao hon') else

11)     if Long < Trang then writeln('Ban Trang cao hon') else

12)     writeln('hai ban lun bang nhau');

13)     readln;

14)     end.

* Sửa lỗi sai 

Dòng 1 : tên không được có khoảng trắng

Dòng 3 : khai báo kiểu dữ liệu sai

Dòng 11 : ghi sai then

Dòng 12 : thiếu chấm phẩy cuối lệnh