Вычислить значение функции - Pascal ABC (14785)

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

Даны действительные числа a, b. Получить |y(ln(a), b+1) - y(b+1, a),где y(p,r)=(p²-r²)/(p²+2pr+3r²+4) (вычисляется с помощью вспомогательной функции).

Решение задачи: «Вычислить значение функции»

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

function y(p, r: real): real;
begin
  y := (p*r-r*r)/(p*p+2*p*r+3*r*r+4)
end;
 
var
  a, b: real;
  
begin
  repeat
    write('a = ');
    readln(a)
  until a > 0;
  write('b = ');
  readln(b);
  writeln('Результат: ', y(ln(a), b+1) - y(b+1, a):0:5);
  readln
end.

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

Создаётся функция y, которая принимает два аргумента типа real и возвращает значение типа real.
В переменной y вычисляется значение функции.
Переменные a и b инициализируются значениями, введенными пользователем.
Запускается цикл repeat, который продолжается до тех пор, пока значение переменной a больше 0.
Внутри цикла переменная a считывается с помощью функции readln.
Затем считывается значение переменной b.
Вычисляется результат вызова функции y с аргументами ln(a) и b+1, а также результат вызова функции y с аргументами b+1 и a.
Полученные результаты выводятся на экран с помощью функции writeln.
Цикл repeat завершается с помощью оператора readln.