Задача по информатике помогите решить СРОЧНО!!!!тема циклы
S=1+1*2+1*2*3+1*2*3*4+1*2*3*4*5+1*2*3*4*5*6+1*2*3*4*5*6*7+1*2*3*4*5*6*7*8+1*2*3*4*5*6*7*8*9+1*2*3*4*5*6*7*8*9*10
Нужно найти сумму произведений!)

//PASCALvar  i, j, x, y: integer;begin  x := 1;y := 0;  for i := 1 to 9 do   begin    y := 1;    for j := 1 to i do inc(y, y * j);    inc(x, y);  end;  writeln(x);end.

var i:integer; s,p:real;begins:=0;p:=1;for i:=1 to 10 do begin p:=p*i; s:=s+p; end;writeln('s = ',s);end.Результат:s = 4037913