дано натуральное число 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) dobegin S:=S+n*(n+1); n:=n-1;end;3)repeatS:=S+n*(n-1);n:=n-1;until n=0;