Напишите программу, находящую максимальное из четырех чисел - Turbo Pascal

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

Напишите программу, находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел).

Решение задачи: «Напишите программу, находящую максимальное из четырех чисел»

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

var a,b,c,d:integer;
 
function  isMax(x,y:integer):integer;
var s:integer;
begin
  if x<y then s:=y else s:=x;
isMax:=s;
end;
 
begin
  writeln('Vvedite a,b,c,d:');
  readln(a,b,c,d);
  writeln('Maximalnoe chislo = ',isMax(isMax(a,b),isMax(c,d)));
end.

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

Создается переменная a типа integer.
Создается переменная b типа integer.
Создается переменная c типа integer.
Создается переменная d типа integer.
Определяется функция isMax, которая принимает два аргумента типа integer.
Внутри функции создается переменная s типа integer.
Если значение первого аргумента меньше значения второго, то значение переменной s устанавливается равным второму аргументу, иначе - первому.
Значение переменной s присваивается значению функции isMax.
Функция isMax возвращает значение переменной s.
Выводится сообщение с просьбой ввести четыре числа.
Числа считываются с помощью функции readln.
Выводится сообщение с результатом вычисления максимального числа.
Функция isMax вызывается дважды, передавая в качестве аргументов результаты предыдущего вызова функции isMax.
Результат вычисления максимального числа выводится на экран.