write('please provide me with n ');
read(n);

sum:=0;
i:=1;
while(i<=n) do begin
product:=1;
j:=i;
while(j<=n) do begin
product:=product*j;
j:=j+1;
end;
sum:=sum+product;
i:=i+1;
end;

write('the indicated sum of products ');
write(sum);
end.