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

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