По данным значениям аргументов a и b вычислить значение функции - Pascal (81148)

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

По данным значениям аргументов a и b вычислить значение функции f(a, b). При организации вычисления необходимо выявить сходные по своей схеме последовательности операций, различающихся лишь операндами, и представить их в виде отдельных функций. Аргументы должны принадлежать области определения функции:

Решение задачи: «По данным значениям аргументов a и b вычислить значение функции»

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

function F(const a, b: Single): Double;
function FF(const x: Single): Double;
begin
    FF := x + 1 / x;
end;
begin
    if ((a = 0) Or (b = 0))
    then
        exit
    else
        F := FF(2) + FF(a) + FF(b) + 1 / (FF(2) + FF(a));
end;
var
    a, b: Single;
begin
    Write('a='); ReadLn(a);
    Write('b='); ReadLn(b);
    if ((a = 0) Or (b = 0))
    then
        Write('Error! Divizion by zero!')
    else
        Write('F=', F(a, b):0:3);
end.

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

Создаётся функция F, которая принимает два аргумента типа Single и возвращает значение типа Double.
Создаётся функция FF, которая принимает один аргумент типа Single и возвращает значение типа Double.
В функции FF происходит вычисление значения выражения x + 1/x.
В основной программе происходит проверка условий (a = 0) или (b = 0). Если хотя бы одно из этих условий выполняется, программа завершается.
Если ни одно из условий не выполняется, то вызывается функция FF с аргументами 2, a и b. Результаты вычислений суммируются и добавляются к 1/((x+1)/x).
В основной программе считываются значения переменных a и b с помощью функции ReadLn.
Проверяется, выполняются ли условия (a = 0) или (b = 0). Если хотя бы одно из них выполняется, программа завершается с сообщением об ошибке Error! Divizion by zero!.
Если ни одно из условий не выполняется, то выводится значение функции F(a, b) с точностью до трех знаков после запятой.