Вычислить значение выражения - Pascal ABC (14447)

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

Помогите пожалуйста

Решение задачи: «Вычислить значение выражения»

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

function Max(const x, y: Double): Double;
var
    Result: Double;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    Max := Result;
end;
function Min(const x, y: Double): Double;
var
    Result: Double;
begin
    if (x < y)
    then
        Result := x
    else
        Result := y;
    Min := Result;
end;
var
    x, y: Double;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    Write('Z=');
    if (x > 0)
    then
        Write(Min(Sqrt(x * y), x + y / 2):0:3)
    else
        Write(Min(x + y, x * y / 2):0:3);
end.

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

Создается функция Max, которая принимает два аргумента типа Double и возвращает значение типа Double. Внутри функции проверяется, какой из двух аргументов больше, и в зависимости от этого возвращается большее значение.
Создается функция Min, которая также принимает два аргумента типа Double и возвращает значение типа Double. Внутри функции проверяется, какой из двух аргументов меньше, и в зависимости от этого возвращается меньшее значение.
Создается переменная x типа Double и инициализируется значением, полученным от пользователя.
Создается переменная y типа Double и инициализируется значением, полученным от пользователя.
Вызывается функция ReadLn для чтения значения переменной x от пользователя.
Вызывается функция ReadLn для чтения значения переменной y от пользователя.
Вычисляется значение выражения Sqrt(x * y) и сохраняется в переменной z.
Проверяется условие: если x больше нуля, то вычисляется значение выражения Min(Sqrt(x y), x + y / 2) и сохраняется в переменной result. Если x меньше или равно нулю, то вычисляется значение выражения Min(x + y, x y / 2) и сохраняется в переменной result.
Выводится значение переменной result.