{-# LANGUAGE MultiWayIf #-}
import Control.Applicative ((<$>))

main = do
  x <- read <$> getLine :: IO Int
  let (a,m) = x`divMod`11

  print $ if | m == 0 -> a*2
             | m < 7 -> a*2+1
             | otherwise -> a*2+2
