Вычислить значение выражения

function Max(const x, y: Double): Double;
var
    Result: Double;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    Max := Result;
end;
function Min(const x, y: Double): Double;
var
    Result: Double;
begin
    if (x < y)
    then
        Result := x
    else
        Result := y;
    Min := Result;
end;
var
    x, y: Double;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    Write('Z=');
    if (x > 0)
    then
        Write(Min(Sqrt(x * y), x + y / 2):0:3)
    else
        Write(Min(x + y, x * y / 2):0:3);
end.

var
    x, y, temp1, temp2: Double;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    Write('Z=');
    temp1 := x + y;
    if (x > 0)
    then
    begin
        temp2 := Sqrt(x * y);
        if (temp1 < temp2)
        then
            Write(temp1:0:3)
        else
            Write(temp2:0:3);
    end
    else
    begin
        temp2 := x * y / 2;
        if (temp1 > temp2)
        then
            Write(temp1:0:3)
        else
            Write(temp2:0:3);
    end;
end.