Подсчитать сумму членов ряда с точностью до 0.000001 и сумму первых 10 членов ряда

[LLLyxPaT]

Для ряда, члены которого вычисляются по формуле, соответствующей Вашему индивидуальному заданию, подсчитать сумму членов ряда с точностью до 0.000001 и сумму первых 10 членов ряда. Если Вы считаете это необходимым, можете упростить или преобразовать выражение.
Язык C.

[newerow1989]

uses Math;

const e=0.000001;
var a,s,sk:real;
    n,k:integer;
    zn:-1..1;
begin
   k:=10;
   n:=1;
   s:=0;
   sk:=0;
   zn:=-1;
   Repeat
      a:=zn*Power(2,n+1)/(Power(2,2*n)+1);
      s:=s+a;
      k:=k-1;
      If k=0 then
         sk:=s;
      n:=n+1;
      zn:=-zn;
   Until Abs(a)<=e;
   Writeln(s:5:8);
   Writeln(sk:5:8);
   Readln;
end.