задача на регулярные циклы в Delphi. Нужен код please!!!

[Nikitasok1]

Даны действительное x и натуральное N.Вычислить A1+A2+A3+...+An. Ak=(x+cos(k*x)/2^k. помогите с кодом пожалуйста!!

[<- DelpHIFanat ->]

Так, что-ли?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

Var
  x, a, Sum: Real;
  k, n: LongWord;

begin
  Write('X = ');
  ReadLn(X);
  Write('N = ');
  ReadLn(N);

  Sum:=0;
  For k:=1 To N Do
    Begin
      a:=(x+Cos(k*x))/IntPower(2, k);
      Sum:=Sum+a;
    End;

  WriteLn;
  WriteLn('Summa ravna: ', Sum:6:8);
  WriteLn;
  WriteLn('Press Enter!');
  ReadLn;
end.

[phomm]

s := 0;
for k := 1 to n do
s := s + (x + cos(k * x))/exp(k * Ln(2));

у вас скобка пропущена в формуле, посему за правильность не ручаюсь