import Text.Printf (printf)

maximumVolume :: [Double] -> Double
maximumVolume (a : b : x : y : _) = (a + b) * min (x / a) (y / b)

main :: IO ()
main = printf "%.12f\n" . maximumVolume . map read . words =<< getLine