Viết chương trình tính s=1+1/2+1/3+...+1/N+... cho đến khi 1/N<0,01

Em cũng thực sự không hiểu đề này cho lắm, nên em làm theo cách này, không biết đúng ý anh không.

S=1 + 1/2 + 1/3 + ... + 1/n

Cộng cho đến khi nào mà n<0.01 thì dừng

Chứ không nhập n

----------------

Program BTT;
Uses crt;
Var i: longint;
    s: extended;
Begin
        Clrscr;
        s:=0;
        i:=1;
        While 1/i>0.01 do
        Begin
                s:=s+(1/i);
                i:=i+1;
        End;

        Write('S = ',s:0:2);
        Readln
End.

s=0 
i=1 
while 1/i>0.01:
    s=s+1/i 
    i=i+1 
print("S=",round(s,3))