program sample
	implicit none
    integer(8) :: i,j,k,l,m
    real(8),allocatable :: a(:)

    read(*,*) i
    read(*,*) j,k
    
    allocate(a(i))
    
    read(*,*) a
    
    do l=1,i
    	a(l)=j-a(l)*0.006-k
        a(l)=abs(a(l))
    end do
    
    m=1
    do l=1,i
    	if (a(l)<a(m)) then
        	m=l
        end if
        !write(*,*) a(l),a(m),m
    end do
    
    write(*,*) m
    !write(*,*) a
    
    stop
end program sample