main :: IO ()
main = do
	n <- readLn :: IO Int
	
	print $ if n `mod` 8 == 0 then "Yes" else "No"