var  a,i:longint;s,s1:real;
begin
        read(a);
        s:=0;
        s1:=0;
        for i := 0 to 1000000 do // i ở đây là 1..n mình nghĩ 1000000 là có thể đủ r tại số a càng lớn thì càng gần 0.001 so thoải mái - nếu muốn bạn có thể tăng thêm để accepted 
        begin
                  s:=(1/(a+i));//tính sum 1/(a+n);
                  s1:=s1+s;//lấy tổng các s kia
                  if s < 0.001 then//nếu s < 0.001 như đề
                  begin
                        writeln(s1:0:5);//write sum các s trước
                        exit;//thủ tục thoát chương trình
                  end;
        end;
end.

@Hômnaytôibịrob

uses crt;

var a, n : integer; S : real;

begin

clrscr;

write('Nhap so a : '); readln(a);

S := 0; n := 0;

while 1 / (a + n) >= 0.001 do

begin

S := S + 1 / (a + n);

n := n+ 1;

end;

write('S : ', S : 3 : 4);

readln

end.