f s k n i= if null s then n else if k>(head s) then f (tail s) (head s) (i+1) (i+1) else f (tail s) k n (i+1)
main=do
 n<-getLine
 [t,a]<-map read.words<$>getLine
 h<-map read.words<$>getLine
 let x=map (abs.(+(-a)).(+t).(*(-0.006)))h
 print$f (tail x) (head x) 1 1