main = do
  l <- readLn
  m <- readLn
  n <- readLn
  let s = 100*l+25*m+n
  let r1000 = mod s 1000
  let (q100,r100) = (div r1000 100, mod r1000 100)
  let (q25,r25) = (div r100 25, mod r100 25)
  putStrLn $ show $ q100+q25+r25