Задача для языка Free Pascal

Описать функцию S(x,eps), вычисляющую значение суммы ряда в точке с указанной точностью eps, если формула суммы:

S= x - x/2 + x/3 - x/4 + x/5 - ..., ряд знакопеременный

Обратиться с координатами точек x = [-0,5;0,5], шаг = 0,1

function F(x,eps:double):double;var  s0,s1,sgn,d:real;begin  s1:=x; d:=1; sgn:=1;  repeat    s0:=s1; d:=d+1; sgn:=-sgn;    s1:=s0+sgn*x/d  until abs(s1-s0)<=eps;  f:=s1end;var  x:double;begin  x:=-0.5;  while x<=0.5 do begin    Writeln(x:4:1,F(x,1e-7):14:7);    x:=x+0.1    endend.Результат-0.5    -0.3465736-0.4    -0.2772589-0.3    -0.2079442-0.2    -0.1386295-0.1    -0.0693148 0.0     0.0000000 0.1     0.0693148 0.2     0.1386295 0.3     0.2079442 0.4     0.2772589 0.5     0.3465736