Să se calculeze: S=1+1*2+1*2*3+…+1*2*3*…*n, unde n se citeşte de la tastatură. program prob5; var p, s,n,i,j:integer; begin write(‘n=’);readln(n); s:=0; p:=1; for i:=1 to n do begin p:=p*j; s:=s+p; end; write(‘rezultatul este:’,s); readln; end.