program secventa;
var n,k,i,j:longint;x:array[1..10000] of integer;
max,maxst,maxed,min:longint;
f:text;
begin
     assign(f,'secventa.in');
     reset(f);
     readln(f,n,k);
     for i:=1 to n do read(f,x[i]);
     close(f);
     max:=-maxlongint;
     repeat
           for i:=1 to n-k+1 do begin
               min:=maxlongint;
               for j:=i to i+k-1 do if x[i]<min then min:=x[i];
               if min>max then begin
                  max:=min;
                  maxst:=i;
                  maxed:=i+k-1;
                  end;
               end;
           k:=k+1;
     until k=n;
     assign(f,'secventa.out');
     rewrite(f);
     write(f,maxst,' ',maxed,' ',max);
     close(f);
end.