let [|vl; vr|] = stdin.ReadLine().Split " " |> Array.map float let d = stdin.ReadLine () |> float let w = stdin.ReadLine () |> float d * w / (vl + vr) |> printfn "%f"