main:: IO ()
main = do
    [r,g,b] <- (map read . words) <$> getLine
    putStrLn $ if solve (r,g,b) then "YES" else "NO"

-- |
--
-- >>> solve (2,3,4)
-- False
solve :: (Int, Int, Int) -> Bool
solve (r,g,b) = (100*r + 10*g + 1*b) `mod` 4 == 0
