Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула

Const eps=0.00001;
var b,c:integer; a,s:real;
begin
s:=0;
b:=1; c:=1;
a:=1/b+1/c;
while abs(a)>=eps do
 begin
 s:=s+a;
 b:=2*b; c:=c*3;
 a:=1/b+1/c;
 end;
writeln(s = ,s:8:5);
end.

Результат:
s =  3.49998