1. Program Chuong trinh

⇒ Sai ⇒ Sửa: Program Chuong_trinh;

2. Var i, s : real;

⇒ Sai ⇒ Sửa: Var i, s : integer;

3. Const n := 10;

⇒ Sai ⇒ Sửa: Const n = 10;

4. Begin

⇒ Đúng

5. Wile i <= n do;

⇒ Sai ⇒ Sửa: While i <= n do

6. Begin

⇒ Đúng

7. S := s + i

⇒ Sai ⇒ Sửa: S := s + i;

8. i = i + 1

⇒ Sai ⇒ Sửa: i := i + 1;

9. End.

⇒ Sai ⇒ Sửa: End;

10. Writeln(s)

⇒ Sai ⇒ Writeln(s);

11. Readln

⇒ Đúng

12. End;

⇒ Sai ⇒ Sửa: End.

program chuongtrinh  ;  `->` Sai vì tên có khoảng trắng, thiếu chấm phẩy

Var i, S : real ; `->` Đúng

Cons n=10 ; `->` Sai vì dấu gán biến là =

Begin `->` Đúng

While i<=n do `->` Sai vì từ while sai chính tả, sau đo không có dấu chấm phẩy

S := S+ i;

i := i +1 ; `->` Thiếu lệnh gán

End ; `->` Câu lệnh ghép thì sau từ end là dấu chấm phẩy

Writeln(s) `->` Thiếu chấm phẩy

End . `->` Kết thúc chương trình, sau từ end là dấu chấm