циклы while и repeat

[Seferus]

Вычислить сумму ряда с заданной степенью точности Безымянный.jpg помогите плз сейчас практика))

[JUDAS]

program Project2;
var n  : integer;
      s,dX,R : double;
begin
 n:=1;
 s:=1;
 R:=1;
 repeat
   s  := s*7;
   if n mod 2 = 1 then
     dx := -n/s else
     dx := n/s;
   n  := n+1;
   R  := R+dx;
 until abs(dX)<=0.0001;
 writeln(r:12:8);
end.