a) for i=1 to 10 do; writeln('A');
lỗi: dư dấu ; sau do và thiếu dấu : sau i
sửa: for i:=1 to 10 do writeln('A');
b) for i:=1 to 10 for j:=1 to 10 do x:=x+1;
lỗi: câu lệnh lặp for-to-do đầu thiếu do
sửa: for i:=1 to 10 do for j:=1 to 10 do x:=x+1;
c) while x=10 do x=x+5;
lỗi: câu lệnh gán thiếu dấu :
sửa: c) while x=10 do x:=x+5;
d) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
lỗi: vòng lặp sẽ lặp vô hạn lần vì điều kiện luôn đúng
sửa: S:=0; n:=0; while S<=10 do begin n:=n+1; S:=S+n; end;
$O^ke_n$