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]);
st:=2;
dr:=1;
q[1]:=-30000;
rez:=-maxlongint;
for i:=1 to n do begin
read(f,a[i]);
if (i>k) and (q[st]=a[i-k]) then inc(st);
inc(dr);
q[dr]:=a[i];
for j:=dr-1 downto st-1 do begin
               if (q[j]<a[i]) then break;
          end;
          dr:=j+1;
          q[dr]:=a[i];
          if (i>=k) and (q[st]>rez) then begin
                                    p:=i-k+1;
                                    u:=i;
                                    rez:=q[st];
                                          end;
                      end;
write(g,p,' ',u,' ',rez);
close(f);
close(g);
end.