Program P62;
 { Calcularea sumei  1 + 1/2 + 1/3 + ... + 1/n  }
var n, i : 1..MaxInt;
       s : real;
begin
 write('n='); readln(n);
 s:=0;
 for i:=1 to n do s:=s+1/i;
 writeln('s=', s);
 readln;
end.