a) Sau từ khóa while phải là điều kiện
Sửa: x:=10; while x=10 do x:=x+5;
b) Khi gán x thiếu dấu :
Sửa: x:=10; while x=10 do x:=x+5;
c) Thiếu câu lệnh ghép vì sao do thực hiện hai câu lệnh
Sửa: S:=0; n:=0; while S<=10 do begin n:=n+1; S:=S+n; end;
d) Giá trị đầu phải lớn hơn giá trị cuối
Sửa: For i:=1 to 100 do write('A');
e) Giá trị đầu và giá trị cuối phải là hai số nguyên
Sửa: For i:=1 to 10 do write('A');
f) Gán biến đếm i thiếu dấu :
Sửa: For i:=1 to 10 do write('A');
g) Sau do không được có dấu ;
Sửa: For i:=1 to 10 do write('A');
h) Biến đếm x là kiểu nguyên, phải khai báo integer
Sửa: Var x:integer; For x:=1 to 10 do write('A');
Học tốt!
