import Data.List

main = interact $ unlines . map (show . entrance_examination) . read' . lines
 where
  read' ("0 0 0":_) = []
  read' (mnn:xs) = ((nmin,nmax), map read scores) : read' xs'
   where
    [m,nmin,nmax] = map read (words mnn)
    (scores,xs') = splitAt m xs

entrance_examination ((nmin,nmax),scores) = fst $ head $ filter ((==gapmax) . snd) $ map gap [nmax,nmax-1..nmin]
 where
  gap n = (n, scores!!(n-1) - scores!!n)
  gapmax = maximum $ map (snd . gap) [nmax,nmax-1..nmin]