Алгоритм накапливания

[BukTop2009]

Скажите пожалуйста кто-нибудь, как решаются на паскале алгоритмы накапливания. Я знаю что циклом, но как?

Написал программку, но по-моему не то:

program summa;
var
x,y,b:real; i,n:integer;
begin
writeln('Ввод значений x и b:');
readln(x,b);
writeln('Сколько раз будем суммировать?');
readln(n);
for i:=1 to n do begin
y:=(x+3*b)/(sqr(x)*x+1);
end;
writeln('OTBET =',y);
readln;
end.

Думаю я не правильно воспользовался циклом.

[whatever]

А что есть "алгоритм накапливания" ?

for i:=1 to n do begin
 y:=(x+3*b)/(sqr(x)*x+1);
 end;

В чем смысл этого куска кода?
1) i в формуле не участвует
2) n раз считаем одну и ту же формулу.

Напиши точное задание.

[JIeIIIa]

Вот так хоть будет накапливание

for i:=1 to n do y:=y+(x+3*b)/(sqr(x)*x+1);

Но это тоже самое, что (без цикла)

y:=n*(x+3*b)/(sqr(x)*x+1);

[BukTop2009]

Сообщение от whatever

А что есть "алгоритм накапливания" ?

for i:=1 to n do begin
 y:=(x+3*b)/(sqr(x)*x+1);
 end;

В чем смысл этого куска кода?
1) i в формуле не участвует
2) n раз считаем одну и ту же формулу.

Напиши точное задание.

Задание и есть "Алгоритм накапливания", я придумал это делать в цикле For, Алексей вон сделал в-принципе как надо. Честно говоря всё равно не уверен.