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.