import Control.Applicative
main=do
	l<-read<$>getLine
	m<-read<$>getLine
	n<-read<$>getLine
	let s1=(l*100+m*25+n) `mod` 1000
	putStrLn$show$s1`div`100+(s1`mod`100`div`25)+s1`mod`25