main = do
 n <- readLn
 m <- readLn
 print (let d = div n m in d - mod d 1000)