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

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