var f1,f2:text;
    q,a:array[1..500000] of integer;
    p1,p2,nr,bmax,min,i,j,n,k:integer;
begin
assign(f1,'secventa.in');
assign(f2,'secventa.out');
reset(f1);
rewrite(f2);
readln(f1,n,k);
for i:=1 to n do
 read(f1,a[i]);
bmax:=-30000;p1:=1;p2:=1;
for i:=1 to n do
 begin
  min:=30000;
  nr:=0;j:=i-1;
  repeat
   if j=n then j:=1
          else j:=j+1;
   if a[j]<min then min:=a[j];
   nr:=nr+1;
  until nr=k;
  if min>bmax then begin
                    bmax:=min;
                    p1:=i;p2:=j;
                   end;
 end;
writeln(f2,p1,' ',p2,' ',bmax);
close(f1);
close(f2);
end.