Решить информатику: s=1/(1+2)+1/(1+2+3)+1/(1+2+3+4)++1/(1+2+)

Var n,i,p: integer;
     s: real;
begin
  s:=0;
  p:=0;
  readln(n);
  for i:=1 to n do
    begin
    p:=p+i;
    s:=s+1/p;
    end;
  writeln(s);
end.