const nmax = 500000;
var i,k,n,j:longint;
    solmin, solstart, solstop,min :longint;
    secv:array[1..nmax] of longint;

begin
assign(input,'secventa.in'); reset(input);
readln(n,k);
for i:=1 to n do
        read(secv[i]);
close(input);
solmin:=-maxint;
for i:=1 to n-k+1 do
        begin
        min:=maxint;
        for j:=i to i+k-1 do
                if secv[j] < min then
                        min:=secv[j];
        if min > solmin then
                begin
                solmin:=min;
                solstart:=i;
                solstop:=i+k-1;
                end;
        end;
assign(output,'secventa.out'); rewrite(output);
writeln(solstart,' ' ,solstop,' ' ,solmin);
closE(output);
end.