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