Дано натуральное число N. Вычислить(Pascal)

[AndrewAlexandrov]

Здравствуйте. Прошу вашей помощи.
Помоги пожалуйста написать код к этому заданию.
Я не могу никак понять. Заранее благодарен

[Stilet]

Ядро может выглядеть так:

one=1;
for i:=1 to n do begin
 two:=two*2;
 s:=s+one*1/two;
 one:=one*-1;
end;

one, two - integer

[type_Oleg]

Или так:

var i:Integer;
   x,s:Double;
begin
 x:=1;
 s:=0;
 for i:=1 to n do
  begin
   s:= s + x;
   x:= - x/2;
  end;
// и т д. 
end;

[AndrewAlexandrov]

Спасибо Вам большое!