main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve [a, b]
    | b < 23                        = 3
    | 23 <= b && b <= 25 && a < 23  = 3 - (b - 23 + 1)
    | 23 <= b && b <= 25 && a >= 23 = 3 - (b - a + 1)
    | 25 < b && a <= 23             = 0
    | 25 < b && 23 < a && a <= 25   = 3 - (25 - a + 1)
    | otherwise                     = 3