Определить большее из 4 чисел - Pascal

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

Определить болшее из 4 чисел введенных с клавиатуры (a,b,c,d), используя процедуру нахождения большего и двух чисел (x,y).

Решение задачи: «Определить большее из 4 чисел»

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

procedure max(x,y:real;var m:real);
begin
if x>y then m:=x else m:=y
end;
var a,b,c,d,mx1,mx2,mx:real;
begin
writeln('Введите 4 числа');
readln(a,b,c,d);
max(a,b,mx1);
max(c,d,mx2);
max(mx1,mx2,mx);
write('Максимальное из них=',mx:0:2)
end.

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

Объявление процедуры:
- Название процедуры: max
- Параметры процедуры: x, y - вещественные числа; m - вещественная переменная, передаваемая по ссылке
Определение тела процедуры:
- Если x больше y, то значение переменной m устанавливается равным x, иначе значение переменной m устанавливается равным y
Объявление переменных в основной программе:
- Названия переменных: a, b, c, d, mx1, mx2, mx - вещественные числа
Основная программа:
- Вывод сообщения Введите 4 числа
- Чтение значений переменных a, b, c, d
- Вызов процедуры max с параметрами a и b, результат сохраняется в переменной mx1
- Вызов процедуры max с параметрами c и d, результат сохраняется в переменной mx2
- Вызов процедуры max с параметрами mx1 и mx2, результат сохраняется в переменной mx
- Вывод сообщения Максимальное из них= и значения переменной mx с округлением до 2 десятичных знаков