main :: IO ()
main = do
  [m1, d1] <- map read . words <$> getLine
  [m2, d2] <- map read . words <$> getLine
  print $ if solve m1 d1 m2 d2 then 1 else 0

solve :: Int -> Int -> Int -> Int -> Bool
solve _ d1 _ d2 = d1 > d2