Где ошибка? Sub сер Dim x, y, z, f, max, min As Single x = Val(InputBox(2)) y = (InputBox(6)) z = (InputBox(10)) If x / 2 больше y / 3 больше z / 4 Then If x / 2 больше y / 3 Then max = x / 2 Else max = y / 3 End If End ...

Где ошибка? Sub сер Dim x, y, z, f, max, min As Single x = Val(InputBox(2)) y = (InputBox(6)) z = (InputBox(10)) If x / 2 > y / 3 > z / 4 Then If x / 2 > y / 3 Then max = x / 2 Else max = y / 3 End If End If Else If y / 3 > z / 4 Then max = y / 3 Else max = z / 4 End If Else If x ^ 2 > y ^ 2 Then min = x ^ 2 Else min = y ^ 2 End If End If Print f = "max(x / 2, y / 3, z / 4) + min(x ^ 2, y ^ 2)="; min; " + "; max; " = "; min + max