С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) ) - Pascal

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

Даны действительные a, b, c. С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) ) Помогите пожалуйста написать программу

Решение задачи: «С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) )»

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

function max(a, b: real): real;
begin
   result := a;
   if (b > result) then
      result := b;
end;
 
 
function myfunc(a, b, c: real): real;
var
   a1, b1, c1: real;
begin
   a1 := max(a, a+c);
   b1 := max(a, b+c);
   c1 := max(a*b+c, 1.5);
   result := (a1+b1)/(1-c1);
end;

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

Задана функция myfunc, которая принимает три аргумента типа real: a, b, c.
Внутри функции myfunc объявлены три переменные a1, b1, c1 типа real.
Значение переменной a1 получается с помощью функции max, которая принимает два аргумента типа real: a, b и возвращает максимальное значение из них, записывая его в переменную a1.
Значение переменной b1 получается с помощью функции max, которая принимает два аргумента типа real: a, b и возвращает максимальное значение из них, записывая его в переменную b1.
Значение переменной c1 получается с помощью функции max, которая принимает два аргумента типа real: a, b и возвращает максимальное значение из них, записывая его в переменную c1. При этом в качестве аргументов для функции max используются значения переменных a, b, c, которые подвергаются умножению и суммированию.
Результат функции myfunc получается путем деления суммы переменных a1 и b1 на разность единицы и значения переменной c1.
Значение функции myfunc присваивается переменной result.
Код завершается.