main = do
 [vl,vr,d,w] <- map read . words <$> getContents
 print (shuttle vl vr d w)

shuttle vl vr d w = d/(vl+vr) * w