import Data.Char

main = do
    [d, n] <- map read . words <$> getLine
    putStrLn $ show $ ans d n

ans d n = last . take n $ filter (\x -> if d == 0 || d == 2 then x `mod` 100 ^ d == 0 else x `mod` 100 == 0 && x `mod` 10000 /= 0) [1..]
