Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула [tex] a_{n} = \frac{1}{ 2^{n} } + \frac{1}{ 3^{n} } [/tex]

const eps=0.00001;var b,c:integer; a,s:real;begins:=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