main :: IO ()
main = do
    a <- readLn :: IO Int
    let b = a - 7
    print $ if b >= 2 then b else - 1