Проблема с циклом в Pascal

Question

Возникла проблема с лабораторной работой на Pascal. Необходимо посчитать ряд с заданной точностью. Сумма, которая считается в цикле while обнуляется, по неизвестным для меня причинам, поэтому прошу помощи
[ссылка заблокирована по решению администрации проекта]
Код программы:
Var x, x2, s, s2, d, i, n, a, b, c, F, g: Real;
Begin
Read(x);
s:=0;
d:=1;
i:=1;
a:=x*x-3*x+1;
b:=x*x-5*x+5;
c:=a/b;
F:=1;
n:=0;
x2:=x;
While abs(F)<=1E-5 Do
Begin
s2:=s;
s:=(1/(d*2)+1/(i*3))*x2;
x2:=x2*x;
F:=s-s2;
n:=n+1;
End;
g:=1/6-s;
Writeln('c=', c,' ', 'g=', g);
End.

Заранее благодарю за ответы

Условие задачи

Лина Савельева · Accepted Answer

по английски не могу писать 
 
с:: =0 ; после этого у тебя с нигде не меняется и ее значение не изменно, а потом ты пишешь с2=с; следовательно приравниваешь нулю

Эльмир · Answer

var x,e,s,d,t,z,r:real; 
begin 
write('x e ? '); readln(x,e); s:=0; d:=1/2; t:=1/3; z:=1; 
repeat d:=d/2; t:=t/3; z:=z*x; r:=(d+t)*z; s:=s+r until abs(r)< e; 
writeln((x*x-3*x+1)/(x*x-5*x+6):0:8,1/6-s:10:8); readln 
end.