Используя рекурсию, вычислить выражение с заданной точностью ε>0 - Pascal

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

ПАСКАЛЬ!Используя рекурсию, вычислить с заданной точностью ε>0

Решение задачи: «Используя рекурсию, вычислить выражение с заданной точностью ε>0»

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

program task9;
 
const
  eps = 1e-6;
  
function f(x : longint) : real;
var 
  z : real;
begin
  z := 1 / (2 * x + 1);
  if(x mod 2 = 1) then z := (-1) * z;
  if(abs(z) < eps) then f := 0 else f := z + f(x + 1);
end;
 
begin
  writeln(f(0):0:6);
end.

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

Определение константы eps со значением 1e-6 - точность, с которой нужно вычислить выражение.
Объявление функции f с параметром x типа longint и возвращаемым значением типа real.
Объявление переменной z типа real.
Присвоение переменной z значения равного 1 / (2 * x + 1).
Проверка условия x mod 2 = 1 (является ли x нечётным).
Если x нечётное, переменной z присваивается значение -1 * z.
Проверка условия abs(z) < eps (является ли абсолютное значение z меньше чем eps).
Если абсолютное значение z меньше eps, функции f присваивается значение 0, иначе присваивается значение z + f(x + 1).
Вывод результата вызова функции f с аргументом 0 с точностью до 6 знаков после запятой.