Как представить формулу в паскале? - Free Pascal

Формулировка задачи:

Помогите, не до конца понимаю как записать эту формулу в паскале ??? Нужно создать циклический алгоритм и программу для вычисления результатов по формуле(которая выше). Для проверки программы задать X=0,5, n=20.

....
a:=sqrt(abs(x));
        for k:=1 to n do
                begin
                y:=((k*ln(x)+3/7)/(exp((k-1)*x)/k))+1;
                p:=p*y;
....

Правильно ли я прописал?

Решение задачи: «Как представить формулу в паскале?»

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

a:=sqrt(abs(x))+1;
p:=1;
for k:=1 to n do
p:=p*(k*ln(x)+3/7)/exp(ln((exp(k-1)*x)/k));
a:=a-p;

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

Переменная a вычисляет квадратный корень из абсолютного значения переменной x и затем прибавляет 1.
Переменная p инициализируется значением 1.
Переменная k принимает значения от 1 до n (предполагается, что n является константой).
В каждой итерации цикла значение переменной p пересчитывается путем умножения на (kln(x)+3/7)/exp(ln((exp(k-1)x)/k)).
Значение переменной a обновляется путем вычитания значения переменной p.