import Data.List.Split

main = do
    line <- fmap (map read.splitOn ",") getLine
    let dist = take 10 line
        v1   = line !! 10
        v2   = line !! 11
    print $ getZone dist v1 v2
    main


getZone distList v1 v2 = fst.head.filter (\(i,b) -> b).map (fmap (isInRange d)).zoneBound $ distList
    where d = midDistance distList v1 v2

isInRange d (l,r) = d > l && d <= r

zoneBound distList = zip [1..10] boundlist
    where boundlist = zip sumOfDistance (tail sumOfDistance)
          sumOfDistance = scanl (+) 0 distList

midDistance distList v1 v2 = v1*t
    where t =sum distList / (v1+v2)