если я правильно помню про последовательности...

var

   n : integer;

   s : real;

begin

   while 1/(n+n+1) > 0.002 do begin

       s += 1/(n+n+1);

       n += 1;

   end;

   writeln('s = ', s);

   writeln('n = ', n);

end.