18. Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Cоставьте программу в Delphe7

program ex;// Функция для определения из двух чисел минимальноеfunction min(a, b: real): real;begin    if (a > b) then min := b else min := aend;// Функция для определения из двух чисел максимальноеfunction max2(a, b: real): real;begin    if (a > b) then max2 := a else max2 := bend;// Функция для определения из трех чисел максимальноеfunction max3(a, b, c: real): real;begin    // Сначала определяем максимальное из первых двух чисел,    // затем у нас останется два числа и нам остается определить    // максимальное из них    max3 := max2(max2(a, b), c);end;var    x, y, z, d, max_int: real;begin    writeln('Введите 4 числа');    readln(x, y, z, d);    max_int := max3(min(x, y), min(x, z), min(z, d));    writeln(max_int);end.