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:=0;
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.