Вычислить сумму и найти число слагаемых, которые вошли в сумму - Free Pascal (651)

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

Вычислить сумму и найти число слагаемых, которые вошли в сумму.Процесс вычислений требуется закончить, когда очередное слагаемое по модулю окажется меньше e (это слагаемое при вычислении суммы уже не учитывать).

Решение задачи: «Вычислить сумму и найти число слагаемых, которые вошли в сумму»

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

var s, a, x, e: double;
    n: integer;
begin
  repeat
    write('e > 0;  e = ');
    readln(e)
  until e > 0;
  write('x = ');
  readln(x);
  a := -x;
  s := 0;
  n := 0;
  repeat
    s := s + a;
    a := -a * x / 4 * x / (n + 0.5) * x / (n + 1.0) * x / (n + 1.25) * (n + 0.25);
    inc(n)
  until abs(a) < e;
  write('S = ', s, ',  n = ', n);
  readln
end.

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

Объявлены переменные: s, a, x, e (сумма, ускорение, число инициализации и число элементов)
В цикле повторяется запрос на ввод числа e > 0 и его значения
Запрашивается ввод числа x
Переменной a присваивается значение -x
Переменная s инициализируется значением 0, а переменная n значением 0
В цикле повторяется наращивание суммы s на значение a
Значение переменной a обновляется по формуле -a x / 4 x / (n + 0.5) x / (n + 1.0) x / (n + 1.25) * (n + 0.25)
Значение переменной n увеличивается на 1
Цикл повторяется пока абсолютное значение переменной a меньше числа e
Выводятся значения суммы s и числа элементов n
Происходит завершение работы программы и ожидание нажатия любой клавиши для выхода из программы