цикл с параметром

[koshechka299]

за даным натуральным числом n обчислить
1*1-(1+2)*(1+2) +(1+2+3)*(1+2+3)-...(-1)в степени n+1*(1+2+...+n)*(1+2+...+n)

только если можно, попроще

[rubius2008]

z:=1; e:=0; s:=0;
for i:=1 to n do begin
  e:=e+i;
  s:=z*sqr(s);
  z:=-z;
end;