(define l (string->number (read-line)))
(define m (string->number (read-line)))
(define n (string->number (read-line)))
(define remining (+ (* l 100) (* m 25) n))

(print (let*-values (((c1000 r1000) (quotient&remainder remining 1000))
                     ((c100 r100) (quotient&remainder r1000 100))
                     ((c25 c1) (quotient&remainder r100 25)))
        (+ c100 c25 c1)))