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.