var n,i,nr,k,rez,st,dr,poz:longint;   
a,q:array[1..500000] of longint;   
f,g:text;   
begin  
assign(f,'secventa.in');reset(f);   
assign(g,'secventa.out');rewrite(g);   
read(f,n,k);   
for i:=1 to n do read(f,a[i]);   
rez:=-2000000000;   
st:=1;   
dr:=0;   
for i:=1 to k-1 do begin  
while (dr>=st) and (a[i]<=a[q[dr]]) do dec(dr);   
inc(dr);   
q[dr]:=i;   
end;   
for i:=k to n do begin  
while (st<=dr) and (a[i]<=a[q[dr]]) do dec(dr);   
inc(dr);   
q[dr]:=i;   
while (st<=dr) and (q[st]<i-k+1) do inc(st);   
if a[q[st]]>rez then begin  
rez:=a[q[st]];   
poz:=i;   
end;   
end;   
write(g,poz-k+1,' ',poz,' ',rez);   
close(f);   
close(g);   
end.