помогите : сумма ряда Опции

[-111-]

задача такова : вычислить 20 значений ф. y=f(x) с начальым значением xnach:=-0.3 deltax=0.05 приращение аргумента. (y=s ---- должно)

формула суммы ряда : сумма от к=0 до бесконечности (-1)^k*x^(4*k+5)/($*k+1)*(4*k+5)
формула для игрика тнаписана в проге
почему то у меня в проге не совпадает значение игрика и суммы , помогите плз



program v;
uses crt;
var
x,xstep,e,os,s,s1,y,y1,y2,y3:real;
k:integer;
begin
clrscr;
e:=0.01;
k:=0;
s:=0;
x:=-0.3;
xstep:=0.05;
while x<=0.7 do
begin
y:=-x/4+sqrt(2)*(1+x*x*x*x)/32*ln((x*x+x*sqrt(2)+1)/(x*x-x*sqrt(2)+1))+2*arctan(x*sqrt(2)/(1-x*x));
s1:=x*x*x*x*x/5;
s:=s1;
repeat;
inc(k);
os:=s;
s1:=s1*(-1)*x*x*x*x/(4*k+6)*(4*(k-1)+1);
s:=s+s1;
until abs(abs(s)-abs(os))<=e;
write('x=',x:2:2);
write('y=',y:5:2);
writeln('s=',s:7:2);
x:=x+xstep;
end;
end.