main :: IO ()
main = do
    n <- read <$> getLine :: IO Int
    print $ div n 11 * 2 + (case (mod n 11 == 0, mod n 11 > 6) of
                                (True, _) -> 0
                                (_, True) -> 2
                                _         -> 1)