Cоставить программу вычисления следующих выражений:
S=1/1i+1/2i+1/3i+...+1/ni.

помогите пж срочно щас надо

отдуши пасиб большое

function f(x: integer): real;beginif x=0 then f:=1 else f:=x*f(x-1);end;var n,i: integer;sum: real;beginreadln(n);sum:=0;for i:=1 to n do sum:=sum+1/f(i);write(sum);end.