Программа для нахождения произведение суммы ряда - Pascal ABC

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

Помогите написать программу для такого выражения

Решение задачи: «Программа для нахождения произведение суммы ряда»

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

var g,s:real;
    x,d:integer;
begin
g:=1;
for x:=1 to 17 do
 begin
  s:=0;
  for d:=1 to 20 do
  s:=s+exp(ln(d/(2*d+1))*d);
  g:=g*s;
 end;
write('G=',g:0:6)
end.

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

Переменные объявлены: g, s, x, d - все real.
Переменная g инициализирована значением 1.
В цикле for x от 1 до 17 происходит следующее:
- Переменная s инициализирована значением 0.
- В вложенном цикле for d от 1 до 20 происходит следующее:
  - Переменная s увеличивается на сумму exp(ln(d/(2d+1))d).
  - Переменная g умножается на значение переменной s.
- После окончания внутреннего цикла, переменная s сохраняется в переменной g.
Выводится значение переменной g.