求助

var k,i,j,ans:longint;
       sum:real;
       f:boolean;
begin
    read(k);
    f:=true;
    ans:=0
    while f do 
         begin
             inc(ans);
             sum:=sum+1/ans;
             if sum >k then begin
                                             write(ans);
                                             f:=false;
                                         end;
        end;
end.