Где ошибка? 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

If x / 2 > y / 3 Then
max = x / 2
Else
max = y / 3
End If
If z / 4 > max Then
max = z / 4
End If
If x ^ 2 min = x ^ 2
Else
min = y ^ 2
End If