  implicit none
  integer :: D, N, out

  read(*,*) D, N

  if ( D == 0 ) then
     if ( n /= 100) then
        write(*,'(i0)') N
     else 
        write(*,'(i0)') N+1
     end if
  else if ( D == 1 ) then
     if ( n /= 100) then
        write(*,'(i0)') 100*N
     else 
        write(*,'(i0)') 100*(N+1)
     end if
  else
     if ( n /= 100) then
        write(*,'(i0)') 100*100*N
     else 
        write(*,'(i0)') 100*100*(N+1)
     end if
  end if
     
end
