main :: IO ()
main = do
    [r, g, b] <- map (read :: String -> Int) . words <$> getLine
    putStr $ (solver g b) ++ "\n"

solver g b =
    if (g * 10 + b) `mod` 4 == 0
        then "YES"
        else "NO"
