вычислить "сумму".... Опции

[mtusi]

Дано натуральное число N.
вычислить
1*2+2*3*4+...+N(N+1)+...+2N

очень срочно надо завтра лаба...помогите плиз..

[volvo]

Код

const
 n = 10;
var
 i: integer;
 s: longint;

begin
 s := 0;
 for i := 1 to 2 * n do
   s := s + i * (i + 1);

 writeln( 's = ', s );
end.