program main
    implicit none

    integer::a,b,i,j,x
    read *, a,b
    do i = a,b
     do j = 0 ,8
     x= (i-(i/10**(j+1))*10**(j+1))/10**j
   if(modulo(i,3)==0) then
      write(*,*) i
      exit
      else if(x==3) then
      write(*,*) i
      exit
      else 
      end if 
    end do
  end do
  stop
end program main