найти бесконечную сумму ряда с заданной точностью

[логарифм]

посмотрите пожалуйста, что не так
program progam;
var
a,b,c,d,s,e:real;
i:integer;
BEGIN
writeln('Введите точность');
readln(e);
s:=0;
b:=4;
c:=1;
d:=3;
a:=b/(c*d);
i:=1;
while abs(a)>=e do
begin
s:=s+a;
b:=b*(-2);
c:=c+1;
d:=d+2;
a:=b/(c*d);
i:=i+1;
end;
writeln('Сумма* = ',s:4:2);
END.

[Ser@Fim]

Последовательность расходящаяся - сумма равна бесконечности