Question

Вычислить сумму
n
∑ (-1)n / (2i)
i=1
Помогите написать решение в паскале

Answer 1

Var
  s : Real;
  i,n : Integer;
Begin
  s:=0;
  Readln(n);
  For i:=1 to n do s:=s-n/(2*i);
end.