main = do
       e<-getLine
       let (a:b:[])=map read (words e)::[Int]
       print $ length [1|c<-[23..25],c<a||b<c]