program main
  implicit none
  integer, parameter :: imax = 1000000
  integer :: d, n, i, cnt
  read(*, *) d, n
  cnt = 0
  do i = 1, imax
    if (d == 0) then
      if (mod(i, 100) /= 0) cnt = cnt + 1
    else if (d == 1) then
      if (mod(i, 100) == 0 .and. mod(i, 10000) /= 0) cnt = cnt + 1
    else if (d == 2) then
      if (mod(i, 10000) == 0) cnt = cnt + 1
    else
      stop 1
    end if
    if (cnt == n) then
      write(*, "(i0)") i
      stop 0
    end if
  end do
end program main
