main :: IO ()
main = do
  [l, r] <- map (read :: String -> Double) . words <$> getLine
  d <- readLn :: IO Double
  w <- readLn :: IO Double
  print $ w * (d / (l + r))