Задача по одномерному массиву Опции

[Ольга]

Кто может помочь с программой, откликнитесь!

Дан одномерный массив чисел (Х9999)
Вычислить S=(X1+X2+X3)(X4+X5+...+X8)(X9+...+X15)...(X980i+...+X9999)
Индекс первого слагаемого каждой суммы - квадрат

Примечание: цифры при иксах - это нижний индекс, а не степень.

СПАСИБО!!!!!!

[Oleg]

Вроде так:

Код

p:=1;
s:=0;
k:=4;
for i:=1 to n do
if i=k then
begin
  p:=p*s;
  s:=a[i];
  k:=k*2;
end else s:=s+a[i];

[Ольга]

Спасибо, Олег!
Сейчас попробую запустить...

[Oleg]

Забыл, в конце надо еще p:=p*s; - это и будет результат