var v:array[1..500000] of integer;
    i,j,k,n,min,bmax,p1,p2:longint;
    f:text;

procedure citire;
begin
assign(f,'secventa.in');reset(f);
readln(f,n,k);
for i:=1 to n do read(f,v[i]);
close(f);
end;

procedure determin;
begin
bmax:=0;p1:=0;p2:=0;
for i:=1 to n-k+1 do begin
    min:=maxint;
    for j:=i to i+k-1 do
        if v[j]<min then min:=v[j];
    while(v[j+1]<=min)and(j<n)do j:=j+1;
    if min>bmax then
       begin
       bmax:=min;
       p1:=i;
       p2:=j;
       end;
    end;
end;

procedure afisare;
begin
assign(f,'secventa.out');rewrite(f);
writeln(f,p1,' ',p2,' ',bmax);
close(f);
end;

begin
citire;
determin;
afisare;
end.