x,y,z,*a=$<.read.split.map &:to_i
b=[]
a=a+[0]
max=a[0..y].max
(x-y).times do |i|
  b<< max-a[i]
  if max==a[i]
    max=a[i+1..i+y+1].max
  end
  if a[i+y+1]>max
    max=a[i+y+1]
  end
end
g=b.max
if g<1
  p 0
else
  p g*z
  puts [t=b.index(g),a[t..t+y].index(a[t]+g)].*" "
end