main :: IO ()
main = do
    l <- readLn :: IO Int
    m <- readLn :: IO Int
    n <- readLn :: IO Int
    let g = l * 100 + m * 25 + n
        (d1, m1) = g  `divMod` 1000
        (d2, m2) = m1 `divMod` 100
        (d3, m3) = m2 `divMod` 25
    print $ sum [d2, d3, m3]