var f,g:text;
    n,i,k,j,max,min,aux,sf:longint;
    x:array[1..100] 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,x[i]);
max:=x[1];
for i:=1 to n-k+1 do begin
 min:=x[i];
 for j:=i+1 to k-1 do if x[j]<min then min:=x[j];
 if min>max then begin
              max:=min;
              aux:=i;
              end;
    end;
writeln(g,i,' ',i+k-1,' ',max);
close(f); close(g);
end.