program secventa;
var f,g:text;
    n,k,i,v,y,max:integer;
    a,b,c,d:array[1..500000] of integer;
function min(i,j:integer):integer;
         var y,m:integer;
         begin
         m:=32000;
         for y:=i to j do
             if m>a[y] then m:=a[y];
         min:=m;
         end;
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]);
v:=0;
for i:=1 to n-k+1 do
    for y:=i+k-1 to n do
        begin
        inc(v);
        b[v]:=i; c[v]:=y; d[v]:=min(i,y);
        end;
max:=-32000;
for i:=1 to v do
    if max<d[i] then
       begin max:=d[i]; y:=i; end;
writeln(g,b[y],' ',c[y],' ',d[y]);
close(f); close(g);
end.