---

  repeat
    s := -Ln(2); // Стартуем с -ln(2)

    for k := 1 to n do
    begin
      // Двойка в степени k перенесена в знаменатель:
      a := Power(-1, k) * Cos(k * x) / (k * Power(2, k));
      s := s + a;
    end;