import Data.List

main = do
  [a, b, c, d, e, f] <- map read . words <$> getLine
  let xs = unfoldr (op1 a f) <$> [(0, 0)]
  let ys = unfoldr (op1 b f) <$> xs
  let zs = unfoldr (op2 c e f) <$> ys
  let ws = unfoldr (op2 d e f) <$> zs
  print . maximum $ map f ws

op1 a f (w, s)
  | w + s > f = Nothing
  | otherwise = Just (u, u)
  where u = (w + 100 * a, s)

op2 c e f (w, s)
  | w + s > f = Nothing
  | s * (100 + e) > e * (w + s) = Nothing
  | otherwise = Just (u, u)
  where u = (w, s + c)
  
f (w, s) = 100 * s / (w + s)
  