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