Min(x*y,y/z), max (e4x? 1/y2,ln2z), срочно надо, помогите пожалуйста

var   x, y, z : 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   read (x, y, z);   writeln (min (x*y, y/z));   writeln (max (max (exp(4*x), 1/(sqr(y)), ln(2*z)); end.