X. Y. Z

Function FindMM(const x, y, z : Real; const state : Boolean) : Real; //true - max, false - min
var
    Result : Real;
begin
    if ((x > y And x > z And state) Or (x < z And x < z And Not state)) then
        Result := x
    else
        if ((y > z And state) Or (y < z And Not state)) then
            Result := y
        else
            Result := z;
    FindMM := Result;
end;

Function FindMM(const x, y, z : Real; const state : Boolean) : Real; //true - max, false - min
var
    Result : Real;
begin
    if (((x > y) And (x > z) And state) Or ((x < z) And (x < z) And Not state)) then
        Result := x
    else
        if (((y > z) And state) Or ((y < z) And Not state)) then
            Result := y
        else
            Result := z;
    FindMM := Result;
end;
 
var
    x, y, z : Real;
begin
    Write('y, z='); ReadLn(y, z);
    if (Sin(z) = 0) Or (z = 0) Or (y = 0) Or (Cos(ArcTan(1 / z)) = 0) then
    begin
        WriteLn('ERROR!');
        ReadLn;
        exit;
    end
    else
    begin
        x := Cos(ArcTan(1 / z)) / Sqr(Sin(z));
        x := x + 1 / x;
    end;
    WriteLn('res=', (FindMM(x - y, Sqr(y), y + z, true) + Sqr(FindMM(x / y, y, y + z, false))):0:3);
end.