дано натуральное число n
вычислить в 3 типах цикла (for,while,repeat);
s=1*2+2*3+3*4+...+n(n+1);

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

2)
while (n>0) do
begin
S:=S+n*(n+1);
n:=n-1;
end;

3)
repeat
S:=S+n*(n-1);
n:=n-1;
until n=0;