import qualified Data.ByteString.Char8 as C
import Data.Maybe ( fromJust )

readInts :: IO [Int]
readInts = map (fst . fromJust . C.readInt) . C.words <$> C.getLine

main :: IO ()
main = do
  [_,g,b] <- readInts
  let n = 10*g + b 
  putStrLn $ if m4 n 
               then "YES" 
               else "NO" 

m4 :: Int -> Bool
m4 n = n `rem` 4 == 0