Дано натуральное число n. вычислить через while и for s=1∙2+2∙3+3∙4+⋯+n∙(n+1)

var n,I,s,sum:integer;
begin
writeln('ввести огрничение n');
readln(n);
sum:=0;
for i:=1 to n do begin
s:=i*(i+1);
sum:=sum+s;
writeln(sum);
end;
readln
end.