Разбить алгоритм на основную программу и функцию - PascalABC.NET

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

Помогите, пожалуйста, срочно нужно разобраться

Задание такое:

В этом разделе для вычисления по приведенным ниже формулам величины Z необходимо разбить вычислительный алгоритм на два блока - основную программу и пользовательскую функцию. Составить программу и для введенных с клавиатуры значений параметров рассчитать величину Z […].

Вот сама формула:

где

Решение задачи: «Разбить алгоритм на основную программу и функцию»

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

function f(u,v:real):real := u/(1+v*v)+v/(u*u+1)-sqr(u-v);
 
begin
  var a := ReadLnReal('a =');
  var b := ReadLnReal('b =');
  WriteLn('Z = ', f(a,b)+min(sqr(f(a-b,a*b)),f(a-b,a+b)+f(1,a/b)));
end.

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

Функция f(u,v:real):real принимает два аргумента типа real и возвращает значение типа real
Внутри функции происходит вычисление значения функции f(u,v) по формуле u/(1+vv)+v/(uu+1)-sqr(u-v)
За пределами функции объявлены две переменные a и b типа real, которые инициализируются значениями, введенными пользователем
Значения переменных a и b используются в качестве аргументов для функции f(u,v:real):real
Результат вычисления функции f(a,b) сохраняется в переменную Z
Также к значению переменной Z добавляется минимальное значение из двух: sqr(f(a-b,a*b)) и f(a-b,a+b)+f(1,a/b)
Значение переменной Z выводится на экран с помощью функции WriteLn