var f,g:text;      
b:array[0..5000000] of char;      
a:array[1..500000] of longint;      
ok:boolean;      
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:=0;b[0]:='0';      
while b[i] in (['0'..'9']+[' ']) do     
        begin     
        inc(I);      
        inc(n);      
        a[n]:=0;      
        ok:=false;      
        if b[i]='-' then begin     
                         ok:=true;      
                         i:=i+1;      
                         end;      
        while (b[i]in ['0'..'9']) do     
                begin     
                a[n]:=a[n]*10+ord(b[i])-48;      
                inc(I);      
                end;      
        if ok then a[n]:=0-a[n];      
        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     
                       else if a[j]<max then poz:=j;      
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.