В Delphi 7 Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)).

Var x, y, z, d: real; function min(a, b: real): real; begin if a < b then min := a else min := b; end; function max(a, b: real): real; begin if a > b then max := a else max := b; end; begin readln(x, y, z, d); writeln(max(min(x, y), max(min(x, z), min(z, d)))); end.