import Data.List
import Data.Char

main :: IO ()
main = do
  n <- words <$> getLine :: IO [String]
  let combNum =  read $ foldl' (++) ""  n :: Int
  putStrLn $ if combNum `mod` 4 == 0 then "YES" else "NO"
