Люд срочняк! Помогите решить.Для данного естественного n и действительного x подсчитать

Ответ:

Изъяснение:

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

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.