Вычисление максимального из двух чисел - Pascal ABC

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

Задание сделать 2 способами:с помощью процедуры и функции.Реализацию подпрограмм и их вызов сделать в одной программе.

Само задание:

Составить подпрограмму вычисления максимального из двух чисел.Используя её,вычислить максимальное среди 3х чисел. Программа не очень трудная.Буду очень благодарен за блок схему. ( Пример, процедура-слева,функция-справа,а снизу идёт уже в один столбец основная программа с Begin по End) Огромное спасибо!

Решение задачи: «Вычисление максимального из двух чисел»

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

function MaxF(const x, y: Real): Real;
var
    Result: Real;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    MaxF := Result;
end;
 
procedure MaxP(x, y: Real; var Result: Real);
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
end;
 
var
    max: Real;
begin
    WriteLn('MAX=', MaxF(MaxF(13, 7), 77):0:2);
    MaxP(13, 7, max);
    MaxP(max, 77, max);
    WriteLn('MAX=', max:0:2);
end.

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

В данном коде представлен алгоритм вычисления максимального из двух чисел. Функция MaxF(const x, y: Real): Real; выполняет следующие действия:

Если x больше y, то результат присваивается x.
Если y больше x, то результат присваивается y.
Результат сохраняется в переменной MaxF. Процедура MaxP(x, y: Real; var Result: Real); выполняет следующие действия:
Если x больше y, то результат присваивается x.
Если y больше x, то результат присваивается y.
Результат сохраняется в переменной Result.
Значение переменной Result присваивается переменной MaxF. Далее, в основной части кода используются две функции MaxF и MaxP для вычисления максимального из двух чисел. Сначала вычисляется максимальное значение из двух чисел 13 и 7, затем это значение присваивается переменной max. Затем, второе число 77 сравнивается с max, и если 77 больше max, то значение max обновляется. В конце выводится значение max.