a) Sai chỗ: While x:=10 (sau while là điều kiện)
Sửa: x:=10; while x=10 do x:=x+5;
b) Sai chỗ: x=x+5; (câu lệnh gán thiếu dấu (:))
Sửa: x:=10; while x=10 do x:=x+5;
c) Sai chỗ: Thiếu câu lệnh ghép
Sửa: S:=0; n:=0; while S <=10 do begin n:=n+1; S:=S+n; end;
d) Sai chỗ: giá trị đầu lớn hơn giá trị cuối
Sửa: For i:= 100 downto 1 do write ('A');
Hoặc: For i:= 1 to 100 do write ('A');
e) Sai chỗ: giá trị đầu và cuối là số thực
Sửa: For i:= 1 to 10 do write ('A');
f) Sai chỗ: For i=1 (Câu lệnh gán thiếu dấu (:))
Sửa: For i:= 1 to 10 do write ('A');
g) Sai chỗ: dư ; sau do
Sửa: For i:= 1 to 10 do write ('A');
h) Sai chỗ: khai báo kiểu dữ liệu của x
Sửa: Var x: byte; For x:= 1 to 10 do write ('A');
