Цикл, добавление дополнительного множителя - Pascal

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

Здравствуйте, никак не пойму как добавлять в каждом действии цикла еще один множитель в знаменателе. Задача 6.8

Решение задачи: «Цикл, добавление дополнительного множителя»

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

var a,x,p,s:real;
    n,i,k:integer;
begin
writeln('Введите действительные значения x,a');
readln(x,a);
write('Введите натуральное число n=');
readln(n);
k:=0;
if a=0 then k:=1
else
 begin
  s:=x/a;
  p:=a;
  for i:=1 to n do
   begin
    p:=p*(a+i);
    if p=0 then
     begin
      k:=1;
      break;
     end
    else s:=s+x/p;
   end;
  end;
if k=1 then write('Значение не определено')
else write('Сумма=',s:0:4);
end.

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

Объявление переменных:
- a,x,p,s (действительные числа)
- n,i,k (целые числа)
Ввод значений:
- Запрашивается ввод действительных значений x и a.
- Пользователь вводит натуральное число n.
Условная конструкция:
- Переменная k инициализируется нулем.
- Если a равно нулю, то k устанавливается в 1.
Вычисления и заполнение значений переменных:
- Если a не равно нулю, то выполняются следующие действия:
  - s присваивается значение x/a.
  - p присваивается значение a.
  - Выполняется цикл счетчика i от 1 до n:
    - p умножается на (a+i).
    - Если p равно нулю, то k устанавливается в 1 и происходит выход из цикла.
    - В противном случае, s увеличивается на x/p.
Вывод результата:
- Если k равно 1, выводится сообщение Значение не определено.
- В противном случае, выводится сообщение Сумма= и значение переменной s с округлением до 4 знаков после запятой.