program jihanki
  implicit none
  integer :: i, n
  real :: t, a
  real, allocatable :: h(:)

  read(*,*)n
  allocate(h(n))
  read(*,*)t,a
  read(*,*)h

  do i=1, n
     h(i)=abs(t-h(i)*0.006-a)
  end do
  do i=1, n
     if (h(i)==minval(h)) then
        write(*,*)i
     end if
  end do

end program jihanki
