var f,g:text;
    n,k,i,y,x,min,max,incep,sfarsit:longint;
    a:array[1..500000]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]);
y:=k;
x:=1;
while y<=n do
      begin
      min:=maxlongint;
      for i:=x to y do
      if a[i]<min then min:=a[i];
      if min>max then begin
                max:=min;
                incep:=x;
                sfarsit:=y;
                end;
      y:=y+1;
      x:=x+1;
      end;
writeln(g,incep,' ',sfarsit,' ',max);
close(g);
end.