Viết chương trình tính X=1+1/2+1/3+1/4+…1/n,n được nhập từ bàn phím

var s,j:real;i,n:longint;
begin
        read(n);
        s:=0;
        for i := 1 to n do
        begin
                j:=i;
                s:=s+(1/j);
        end;
        writeln(s);
end.