Составить программу для вычисления значения выражения - Free Pascal

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

Составить программу для вычисления значения выражения z=max(a,2b)×max(2a-b,b). Для вычисления максимального из двух чисел составить процедуру.

Решение задачи: «Составить программу для вычисления значения выражения»

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

procedure max(a,b:real;var m:real);
begin
if a>b then m:=a else m:=b
end;
var a,b,m1,m2,z:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
max(a,2*b,m1);
max(2*a-b,b,m2);
z:=m1*m2;
writeln ('z=',z:0:2);
readln
end.

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

Объявлены пять переменных: a, b, m1, m2, z (строки 6-10)
Введен ввод данных с помощью функции readln (строки 11-14)
Вызван процедурный блок max с аргументами a, b и m1 (строка 16)
Вызван процедурный блок max с аргументами 2*a-b, b и m2 (строка 17)
Вычислено значение z как произведение m1 и m2 (строка 18)
Выведено значение z с помощью функции writeln (строка 19)
Ожидается ввод данных с помощью функции readln (строка 20)