Đáp án: Như phần "Giải thích các bước giải":
Giải thích các bước giải:
a) Sai do đây phải thuộc câu lệnh lặp for...downto -> For i:= 100 downto 1 do writeln('A');
b) Sau while..do không có lệnh gán -> X:=10; While x=10 do x:=x+12;

c) Sai chỉ số (chỉ số đầu phải nhỏ hơn chỉ số cuối), thừa một dấu "." và phải dùng ngoặc [] chứ không phải ngoặc () -> Var a:array[10..100] of integer;

dòng 1:

sai vì 100>1( đúng thì <gtd> bé hơn hoặc bằng <gtc>)

sửa lại: for i:=1 to 100 do writeln('A');

dòng 2:

sai vì <gtd> và <gtc> phải là những số nguyên (ở đây thì 1.5 và 10.5 là các số thập phân)

sửa lại:

for i:=1 to 10 do writeln('A');