Найти значение выражения - Pascal (80420)

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

Паскаль. Найти значение выражения W=MAX(A+B,C)-MIN(A,B,C)+MAX(A-C,B-C)*MIN(A+B,C-B) Значения A,B,C вводятся с клавиатуры, MAX,MIN считаются в процедуре

Решение задачи: «Найти значение выражения»

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

procedure max(a,b:real;var mx:real);
begin
if a>b then mx:=a else mx:=b;
end;
procedure min(a,b:real;var mn:real);
begin
if a<b then mn:=a else mn:=b;
end;
var a,b,c,d,mn1,mn2,mx1,mx2,w:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
max(a+b,c,mx1);
max(a-c,b-c,mx2);
min(a+b,c-b,mn2);
min(a,b,d);
min(d,c,mn1);
w:=mx1-mn1+mx2*mn1;
writeln('w=',w:0:1);
end.

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

Объявляются процедуры max и min с параметрами a и b типа real и переменными mx и mn типа real для возвращения максимального и минимального значения соответственно.
В процедуре max проверяется условие: если a больше b, то переменной mx присваивается значение a, иначе присваивается значение b.
В процедуре min проверяется условие: если a меньше b, то переменной mn присваивается значение a, иначе присваивается значение b.
Объявляются переменные a, b, c, d, mn1, mn2, mx1, mx2, w типа real.
Пользователю предлагается ввести 3 числа с помощью сообщения Введите 3 числа.
Вводятся значения переменных a, b и c.
Вычисляется максимальное значение для переменной mx1 с использованием процедуры max для выражения a+b и c.
Вычисляется максимальное значение для переменной mx2 с использованием процедуры max для выражения a-c и b-c.
Вычисляется минимальное значение для переменной mn2 с использованием процедуры min для выражения a+b и c-b.
Вычисляется минимальное значение для переменной mn1 с использованием процедуры min для выражения a и b.
Вычисляется минимальное значение для переменной d с использованием процедуры min для значений a и b.
Вычисляется значение переменной w по формуле: mx1-mn1+mx2*mn1.
Выводится результат вычислений с использованием сообщения w= и значением переменной w с округлением до одного знака после запятой.