Вычислить на ЭВМ значение суммы S при изменении аргумента в указанном диапазоне с шагом h=(b - a)/10 - Turbo Pascal

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

Задание. Вычислить на ЭВМ значение суммы S при изменении аргумента в указанном диапазоне с шагом h=(b - a)/10 . Вывод результатов оформить в виде таблицы: x|сумма|F(x) Сумма: S=x+x^5/5+⋯+(x^n+1)/(4n+1); Диапазон изменения аргумента: 0.1≤х≤0.8 ; n=30; Функция Y: Y=(1×ln)/4×(1+x)/(1-x)+1/2×arctg(x).

Решение задачи: «Вычислить на ЭВМ значение суммы S при изменении аргумента в указанном диапазоне с шагом h=(b - a)/10»

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

function Сумма(x : Real; n : Integer) : Real;
begin
  Result := x;
  for var i := 1 to n do Result += power(x, n+1) / (4*(n+1));
end;
 
function Y(x : Real) : Real := ln(x)/4*(1+x)/(1-x)+arctan(x);
 
begin
  var n := ReadLnInteger('n =');
  var a := ReadLnReal('a =');
  var b := ReadLnReal('b =');
  WriteLn('     x     |   Сумма    |   F(x)');
  var h := (b - a) / 10;
  repeat
    WriteLnFormat('{0,10:#0.0000000} | {1,10:#0.0000000} | {2,10:#0.0000000}', a, Сумма(a, n), Y(a));
    a += h;
  until a > b;
end.

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

Функция Сумма принимает два аргумента: x - значение переменной, для которой вычисляется сумма, и n - количество разрядов, на которое нужно возвести x в степень.
Результат функции - это сумма значений x, полученных путем возведения его в степень n.
Функция Y принимает один аргумент x - значение переменной, для которой вычисляется значение Y.
Значение Y представляет собой выражение, включающее натуральный логарифм x, (1+x)/(1-x) и арктангенс x.
В начале программы считываются значения переменных a, b и n с помощью функции ReadLnInteger и функции ReadLnReal соответственно.
Затем вычисляется шаг h, который равен разности переменных a и b, деленной на 10.
Программа входит в цикл repeat, который выполняется до тех пор, пока значение переменной a не станет больше значения переменной b.
Внутри цикла выводится строка, содержащая значения переменных a, Сумма(a, n) и Y(a).
После каждой итерации цикла значение переменной a увеличивается на h.
Программа заканчивается, когда значение переменной a становится больше значения переменной b.