Вычислить значение функции - Turbo Pascal (29215)

Для приведенной ниже формулы разработать алгоритм вычисления значения функции для произвольного аргумента функции:

Листинг программы

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

Объяснение кода листинга программы

1. s := 0;
2. for k := 1 to n do
3. s := s + exp(ln(exp(k+sqrt(x))*cos(2*x/k))/k);
4. f := s*sqrt(abs(x)+n);