use std::io::*;
use std::str::FromStr;

#[allow(dead_code)]
fn get_line() -> String {
    let stdin = stdin();
    let mut line = String::new();
    stdin.lock().read_line(&mut line).expect("io error.");
    line.trim().to_string()
}

#[allow(dead_code)]
fn get_word<T: FromStr>() -> T {
    (&get_line()).parse().ok().expect("parse error.")
}

#[allow(dead_code)]
fn get_vec<T: FromStr>() -> Vec<T> {
    (&get_line()).split(' ').map(|x| x.parse().ok().expect("parse error.")).collect()
}

fn main() {
    let mut sum: u64 = 0;
    let money: [u64; 4] = [1000, 100, 25, 1];

    for i in 1..4 {
        sum += money[i as usize] * get_word::<u64>();
    }

    let mut ans = 0;
    for i in 0..4 {
        // println!("{}", sum);
        if i > 0 {
            ans += sum / money[i];
        }
        sum %= money[i];
    }

    println!("{}", ans);
}