Сколько чисел нужно взять в последовательности 1/2+1/3+1/4+…, чтобы получить число, больше чем N? — Pascal(Паскаль)

uses crt;
var i:longint;
    n,s:real;
begin
clrscr;
write('vvedite n < 16, n=');
readln(n);
i:=0;s:=0;
while s<=n do
 begin
  i:=i+1;
  s:=s+1/(i+1);
  if (i=maxlongint-1)and(s<n) then {переполнение}
   begin
    writeln('Болше ',maxlongint);
    readln;
    exit;
   end;
 end;
write('i=',i,'  s=',s:0:15);
readln
end.