В 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.