main = do
    n <- readLn :: IO Integer
    m <- readLn :: IO Integer
    print $ solve n m

solve :: Integer -> Integer -> Integer
solve n m = (n `div` (1000 * m)) * 1000