use proconio::input;
fn main(){
    input!{
        mut n:isize,
    }
    let a=[-2,-2,1,1,-2,1,1];
    let mut ans=0;
    while n!=0{
        for i in a{
            if n==0{
                break;
            }
            n+=i;ans+=if i==-2 {2} else {1};
            
        }
    }
    print!("{}",ans);
}