n,d,K,*x=$<.read.split.map &:to_i
m=[0,0,0]
c=h=x[0]+1
x.each_with_index{|a,j|
  f=[j+d,n-1].min
  next if a>=c&&x[f]<=x[h]
  x[j+1..f].each_with_index{|b,k|
    v=b-a
    break if v<0
    v>m[0]&&m=[v,j,k+j+1]
  }
  h=f
  c=a
}
m[0]<1?p(0):puts(m[0]*K,m[1,2]*' ')