Найти максимальное из трех данных чисел - Pascal

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

записать максимальное число состоящее из 3х чисел с помощью процедуры и функции

Решение задачи: «Найти максимальное из трех данных чисел»

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

procedure max_3(a,b,c:integer;var mx:integer);
begin
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
end;
var a,b,c,mx:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
max_3(a,b,c,mx);
write('Максимальное=',mx);
end.

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

Создаются три переменных:
- a со значением целого числа,
- b также со значением целого числа,
- c также со значением целого числа.
Создается переменная mx, также как и a, b и c, со значением целого числа, но с ключевым словом var в начале, что означает, что она будет изменена в процессе работы процедуры max_3.
Внутри блока процедуры max_3 находится следующий код:
- Если a больше b, то mx присваивается значение a, иначе mx присваивается значение b.
- Затем, если c больше mx, mx присваивается значение c.
После определения процедуры, идет блок begin, в котором:
- Выводится на экран Введите 3 целых числа.
- Значения a, b и c считываются с клавиатуры.
- Запускается процедура max_3 с передачей ей значений a, b, c и переменной mx.
- Выводится на экран Максимальное= с последующим значением переменной mx.