1)       var a,b : Real ;
2)       Begin
3)       Writeln ('Nhap do dai chieu rong');
4)       Readln (a);
5)       Writeln ('Nhap do dai chieu dai');
6)       Realn(b);
7)       S=a*b;

8)
9)       Readln
10)     End.

* Lỗi sai :

Dòng 1 : chưa khai báo biến S;

Dong 6 : ghi sai realn

Dòng 7 : sau câu lệnh gán thiếu chấm phẩy, dấu gán sai :=

Dòng 8 : thiếu câu lệnh in giá trị S ra màn hình

* Sửa

var a, b, S : Real ;

Begin

Writeln ('Nhap do dai chieu rong'); Readln (a);

Writeln ('Nhap do dai chieu dai'); Readln(b);

S :=a*b ;

Writeln('dien tich hinh chu nhat la :', S);

Readln

End.

Realn(b) sai.

Sửa lại: Readln(b)

Sau câu lệnh Readln chưa có ;

Chương trình thiếu in ra diện tích.