Вывести на экран сумму или произведение чисел в зависимости от условия - Pascal

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

помогите пожалуйста. Написать программу, запрашивающая 3 целых числа и выводящая сумму этих чисел на экран, если максимум этих чисел больше 12. Вывод на экран произведения этих чисел, если минимум этих чисел меньше или равен 12.

Решение задачи: «Вывести на экран сумму или произведение чисел в зависимости от условия»

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

function max(a,b,c:integer; var min,max:integer): integer;
var
d,e:integer;
begin
d:=a;
e:=a;
if b>d then d:=b;
if c>d then d:=c;
 
if b<e then e:=b ;
if c<e then e:=c;
max:=d;
min:=e;
end;
 
  var
  a,b,c,d,e,rez:integer;
begin
write('1-chislo=');
readln(a);
write('2-chislo=');
readln(b);
write('3-chislo=');
readln(c);
 
 
max(a,b,c,d,e);
if e>12 then rez:=a+b+c;
if d<=12 then rez:=a*b*c;
 
writeln('max=',e);
writeln('min=',d);
writeln(rez);
end.

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

Функция max принимает три аргумента a, b и c, а также три переменные min и max, которые будут использоваться для хранения минимального и максимального значения соответственно. Внутри функции происходит сравнение значений b, c и a с переменными d и e. Если значение b больше d, то d присваивается значение b. Аналогично, если значение c больше d, то d присваивается значение c. Затем, если значение b меньше e, то e присваивается значение b, а если значение c меньше e, то e присваивается значение c. В конце функция возвращает максимальное значение, которое сохраняется в переменной max, а минимальное значение сохраняется в переменной min.
Основная часть программы начинается с объявления переменных a, b и c, которые будут использоваться для ввода значений с клавиатуры. Затем программа вызывает функцию max с аргументами a, b и c, и сохраняет результат в переменную rez. Если значение e (максимальное значение) больше 12, то rez присваивается сумма значений a, b и c. Если значение d (минимальное значение) меньше или равно 12, то rez присваивается произведение значений a, b и c. Наконец, программа выводит на экран значения max, min и rez.