Question

PASCAL语言 看程序写结果 该程序TP可运行但结果与我算出不符 FP报错

const m:array[0..4] of integer=(2,3,5,7,13);
var i,j:integer;
t:longint;

begin writeln;writeln;writeln;

for i:=0 to 4 do
begin
t:=1;
for i:=1 to m[i]-1 do
t:=t*2;
t:=(t*2-1)*t;
write(t,' ');
end;
writeln;
end.

若程序正确，请写出结果。若不正确，请提出修改意见。

报错的图如下
begin 后面的 3个writeln;writeln;writeln;是没有的。。。。虽然说这与运行结果也没有很大的关系。。。那么报错的那段话的意思的中文应该怎么去看

Answer 1

前一句用了for i:=0 to 4 do，
后一句的for i:=1 to m[i]-1 do就不应再用i做循环变量了。。。
把后一个的I全部换成J即可。