program apple
implicit none
integer::d, n
 read(5,*)d, n
  if(d=0) then
   print*,n
  else if(d=1)then
   print*,n*100
  else 
   print*,n*10000
  end if
end program apple
program apple
implicit none
integer::d, n
 read(5,*)d, n
  if(d==0) then
   print*,n
  else if(d==1)then
   print*,n*100
  else 
   print*,n*10000
  end if
end program apple
