var f,g:text;
b:array[0..5000000] of char;
a:array[1..500000] of longint;
mini,n,i,j,k,l,max,min,poz,pozi,x,y:longint;
begin
assign(f,'secventa.in');
assign(g,'secventa.out');
reset(F);
rewrite(G);
readln(f,n,k);
n:=0;
read(f,b);
i:=1;  b[0]:='1';
while b[i] in (['0'..'9']+[' ']) do
        begin
        inc(I);
        inc(n);
        a[n]:=0;
        while (b[i]in ['0'..'9']) do
                begin
                a[n]:=a[n]*10+ord(b[i])-48;
                inc(I);
                end;
        end;
poz:=-1;
max:=-maxlongint;min:=0;
x:=0;
y:=0;
i:=0;
while i<n-k+1 do
begin
inc(I);
min:=maxlongint;
for j:=i to i+k-1 do
      if a[j]<min then begin
                        min:=a[j];
                       poz:=j;
                       end;
if min>max then begin
                max:=min;
                x:=i;
                y:=i+k-1;
                end;
if poz>i then i:=poz;
end;
writeln(g,x,' ',y,' ',max);
close(F);
close(G);
end.