Сколько чисел нужно взять в последовательности чтобы получить число, больше чем N- Pascal(Паскаль)

var
a,n,kol:integer;
s:real;
begin;
writeln('vvedite n');
readln(n);
a:=1;
while s<=n do
begin
inc(a);
s:=s+1/a;
inc(kol);
end;
writeln('vvedeno ',kol,' chisel');
readln;
end.