Как записать формулу - Pascal ABC

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

Как записать формулу. Как написать саму программу знаю, а вот как обозначить и записать формулу

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

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

var k, n: integer;
    x, p, a: real;
begin
  repeat //можно убрать, если проверка не требуется
    write('n > 0;  n = ');
    readln(n);
  until n > 0; //можно убрать, если проверка не требуется
  write('x = ');
  readln(x);
  if x = -0.5
    then writeln('Значение выражения не определено')
    else begin
      x := 2 * x - 1;
      a := 1 / x;
      p := a;
      for k := 2 to n do
        begin
          a := -a / x;
          p := p * a
        end;
      writeln('P = ', p)
    end
end.

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

Объявляются переменные k, n, x, p, a типа integer, real соответственно.
Запускается цикл repeat, который будет выполняться до тех пор, пока n больше 0.
Выводится сообщение «n > 0; n = », а затем считывается значение переменной n.
Выводится сообщение «x = », а затем считывается значение переменной x.
Проверяется условие x = -0.5. Если оно истинно, выводится сообщение «Значение выражения не определено».
Если условие x = -0.5 ложно, выполняется следующий блок кода:
- x устанавливается равным 2*x-1.
- a устанавливается равным 1/x.
- p устанавливается равным a.
- Для k от 2 до n выполняется цикл for:
  - a устанавливается равным -a/x.
  - p устанавливается равным p*a.
- Выводится значение переменной p.
Конец программы.