program egwhile(output);
var
        n: integer;
        h: real;
begin
        n := 10;
        write(n);
        h := 0;
        while n > 0 do
        begin
                h := h + 1/n;
                n := n-1;
        end;
        writeln(h)
end.
