Dayana 6

var
 n,i:integer;
 sum:real;
begin
  readln(n);
  for i := 1 to n do
    sum:= sum+1/i;
      writeln(sum);
end.