Задача, уравнение

function Max(const x, y, z : Real) : Real;
var
    Result : Real;
begin
    if ((x > y) And (x > z)) then
        Result := x
    else
        if (y > z) then
            Result := y
        else
            Result := z;
    Max := Result;
end;
 
function Min(const x, y : Real) : Real;
var
    Result : Real;
begin
    if (x < y) then
        Result := x
    else
        Result := y;
    Min := Result;
end;
 
function Max(const x, y : Real) : Real;
var
    Result : Real;
begin
    if (x > y) then
        Result := x
    else
        Result := y;
    Max := Result;
end;
 
var
    a, b, x, y, z : Real;
begin
    Write('a, b: '); ReadLn(a, b);
    Write('x, y, z: '); ReadLn(x, y, z);
    Write('S=');
    if ((x > 0) And (y > 0)) then
        WriteLn(Max(a / x, b / x, sqrt(y)):0:3)
    else
        if ((x < 0) And (y > 0)) then
            WriteLn(Min(a + x, Max(y, z)):0:3)
        else
            WriteLn((b * exp(y + 1) + x):0:3);
end.