main = do
  [y,m,d] <- map read . words <$> getLine :: IO [Int]
  let date = (y,m,d)

  if date >= (1989,1,8) && date <= (2019,4,30) then
    putStrLn "Yes"
    else
    putStrLn "No"