import qualified Data.ByteString.Char8 as BS
import Data.Maybe (fromJust)
import Data.List
import Control.Monad

data Rgb = Rgb {red :: Int, green :: Int, blue :: Int}

toYesNo :: Bool -> String
toYesNo True = "YES"
toYesNo _ = "NO"

toNum :: Rgb -> Int
toNum rgb = (red rgb) * 100 + (green rgb) * 10 + (blue rgb)

solve :: Rgb -> String
solve = toYesNo . ((==) 0) . (flip mod 4) . toNum

main :: IO ()
main = do
    [r, g, b] <- map (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine
    let rgb = Rgb {red=r, green=g, blue=b}
    putStrLn $ solve rgb
