program p1;
var f,g:text;
    a:array[0..500] of integer;
    max,prim,ultim,im1,im2,n,k,i,min,j:longint;

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]);
     prim:=0;
     max:=-30001;
      for i:=k to n do
         begin
         inc(prim);
         if min=a[prim-1] then
              begin
              min:=a[prim];
              for j:=prim+1 to i do
                  if a[j]<min then min:=a[j];
              if min>max then begin
                              max:=min;
                              im1:=prim;
                              im2:=i;
                              end;
             end;
          end;
     writeln(g,im1,' ',im2,' ',max);
     close(f);
     close(g);
end.