program main
   implicit none
   integer n,i,j
   real:: t,a,d=10000,re
   real,allocatable,dimension(:)::h
   reaD(*,*)n,t,a
   allocate(h(1:n))
   read(*,*)h(1:n)
   do i=1,n
      re=t-h(i)*0.006
      if(abs(re-a)<d)then
        d=abs(re-a)
        j=i
      endif
   enddo
   write(*,*)j
end program main
