Вычислить 1*2+2*3+...+n(n+1). Паскаль цикл While.

Program n1;var n,i: integer;sum: real;begini:=0;sum:=0;readln(n);while i<=n dobeginsum:=sum+i*(i+1);i:=i+1;end;write(sum);end.