Pascal. Сумма последовательности.

[demojke]

Дана последовательность: 1*2+2*3*4+4*5*6*7+7*8*9*10*11+...{и та до <1000}. Каждое последующее произведение увеличивается на одно число. Посчитать сумму последовательности. Цикл while.

[world12_tk]

sum extended;
n:=integer;
n:=1000;
sum:=0;

for i:=2 to n do
   sum:=sum+(i-1)*(i);