Не могу решить задачу с условием Y=1*2+2*3*4+...+n(n+1)+...+2n

[userer]

Условие задачи - Y=1*2+2*3*4+...+n(n+1)+...+2n

Код
Program Z19;
uses crt;
var sum:integer;
n, y, z, i:integer;
begin
writeln ('n ');
readln(n);
sum:=0;
y:=1;
for i:=1 to n do
z:=y*i*(i+1);
sum:=z+sum;
readln(sum);
end.
СПАСИБО ЗА ОТВЕТЫ, ПРОБЛЕМУ РЕШИЛ!!! =)))

[Rin]

Как-то так.

Program Z19;
uses crt;
var sum:integer;
n, y, z, i:integer;
begin
writeln ('n ');
readln(n);
sum:=0;
for i:=1 to n do
begin
y:=1;
for z:=1 to i do y:=y*z;
sum:=sym+y;
end;
writeln(sum-1);
readln;
end.

[Abstraction]

Y=1*2+2*3*4+...+n(n+1)+...+2n

А можно, для тех кто в танке, расписать ещё пару-тройку слагаемых? Или пример суммы при n=8, скажем?