Народ срочняк! Помогите решить.

Для заданного натурального n и действительного x подсчитать сумму:
cosx+cos²x/2+cos³x/3+...+ cos^nx/n

Ответ:

Объяснение:

// функция возведения вещественного числа в степень

function stepen(x, n:real):real;

begin

 stepen:=exp(n*ln(x));

end;

var

 n:integer;

 x:real;

 i:integer;

 sum:real;

begin

 readln(n);

 readln(x);

 sum:=0;

 for i:=1 to n do

   sum:=sum + stepen(cos(x/i), i);

 writeln(sum);

 readln;

end.