program sample
	implicit none
    integer(8) :: i,j,k,l,m
    integer(8),allocatable :: a(:)
    
    
    read(*,*) i
    read(*,*) j,k
    
    allocate(a(i))
    
    read(*,*) a
    
    do l=1,i
    	a(l)=1000*j-a(l)*6-1000*k
        a(l)=abs(a(l))
    end do
        
    do l=1,i-1
    	m=1
    	if (a(l+1)<a(m)) then
        	m=l+1
        end if
    end do
    
    write(*,*) m
    
    stop
end program sample