a)
điều kiện ko có :
sửa: A:=5; while A=5 do A:=A+3;
b)
giá trị cuối sai
sửa: S:=0; for i:=1 to 5 do s:=s+i;
c)
thiếu begin end
sửa:
m:=0; T:=0;
while T<=5 do begin m:=m+1; T:=T+m end;
d)
giá trị đầu và giá trị cuối sai, gán giá trị 0 sai vì nhân ra sẽ bằng ko
sửa: T:=1; for i:=1 to 6 do T:=T*i;