var f,g:text;
v:array[1..500000] of integer;
min2,j,min,pi,pf,i,n,k:longint;
begin
assign(f,'secventa.in');
reset(f);
readln(f,n,k);
for i:=1 to n do
  read(f,v[i]);
close(f);
min:=v[1];
for i:=2 to k do
   if v[i]<min then min:=v[i];
pi:=1;
pf:=k;
for i:=k+1 to n do
  begin
   min2:=v[i];
   for j:=i-k+1 to i do
     if min2>v[j] then min2:=v[j];
   if min2>min then begin
                    min:=min2;
                    pi:=i-k+1;
                    pf:=i;
                    end;
   end;
assign(g,'secventa.out');
rewrite(g);
writeln(g,pi,' ',pf,' ',min);
close(g);
end.