我的怎么错了

var
 n:int64;
 k:longint;
 ans:real;
begin
 readln(k);
  ans:=1;
  for n:=2 to 100000000 do
  begin
   repeat
    ans:=ans+1/n;
   until ans>k;
   if ans>k then break;
  end;
  write(n);
end.