(defvar L)
(defvar M)
(defvar N)
(setq L (parse-integer (read-line)))
(setq M (parse-integer (read-line)))
(setq N (parse-integer (read-line)))

(defvar Y)
(setq Y (+ (* L 100) (* M 25) N ))
;(format 't "<~d>~%" Y)

(defvar SUM)
(setq SUM 0)


;(setq SUM (+ SUM (floor Y 1000)))
(setq Y (mod Y 1000))
;(format 't "<~d ~d>~%" SUM Y )

(setq SUM (+ SUM (floor Y 100)))
(setq Y (mod Y 100))
;(format 't "<~d ~d>~%" SUM Y )

(setq SUM (+ SUM (floor Y 25)))
(setq Y (mod Y 25))
;(format 't "<~d ~d>~%" SUM Y )

(format 't "~d~%" (+ SUM Y))