import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Int
solve a = let x = a - 7
          in if x >= 8 then x else (-1)