import Data.Char (digitToInt)
import Control.Monad (replicateM)

dil :: Show a => a -> Int
dil = pred . length . show

main :: IO ()
main = do
    [n, m] <- map read <$> replicateM 2 getLine
    print $ let v = n `div` m in if v < 1000 then 0 else
        digitToInt (head $ show v) * (10^dil v)