solve :: Int -> Int -> Int -> Int
solve l m n
    | n >= 25   = solve l (m + n `div` 25) (n `mod` 25)
    | m >= 4    = solve (l + m `div` 4) (m `mod` 4) n
    | l >= 10   = solve (l `mod` 10) m n
    | otherwise = l + m + n

main :: IO ()
main = do
    l <- readLn
    m <- readLn
    n <- readLn
    (putStrLn . show) $ solve l m n