main = do
 [l,m,n] <- map read . words <$> getContents
 let (d1,m1) = divMod (100*l + 25*m + n) 1000
 let (d2,m2) = divMod m1 100
 let (d3,m3) = divMod m2 25
 print (d2+d3+m3)