a) a:=5 while a<10; then a=a+1;

* lỗi:

- thiếu ";" để kết thúc câu lệnh "a:=5"

- thừa ";" sau điều kiện "a<10"

- trong cú pháp câu lệnh while ... do, không có "then"

* sửa: a:=5; while a<10 do a:=a+1;

b) for i = 100 to 10 do writeln('ABC');

* lỗi:

- trong cú pháp câu lệnh for...to...do, phải là dấu ":=" chứ không phải "="

- <giá trị cuối> phải lớn hơn <giá trị đầu>

* sửa: for i:=10 to 100 do writeln('ABC');

c) if x<5; then x:=x+1; do x=x+1;

* lỗi:

- thừa câu lệnh "do x=x+1;"

- thừa dấu ";" sau điều kiện "x<5"

* sửa: if x<5 then x:=x+1;

d) x:=10; n:=0; while x<20 do n:= n+1; x:=x+n;

* lỗi:

- vì hai câu lệnh không được bỏ trong cặp từ khóa begin-end; nên câu lệnh sẽ bị lặp vô hạn lần

* sửa: x:=10; n:=0; while x<20 do begin n:= n+1; x:=x+n; end;