main :: IO ()
main = do
  l <- readLn :: IO Int
  m <- readLn :: IO Int
  n <- readLn :: IO Int
  let
    (a, b) = n `divMod` 25
    c = a + m
    (d, e) = c `divMod` 4
    f = d + l
    (g, h) = f `divMod` 10
  print $ b + e + h