Procedure update(i:longint);
begin
if(maxlen<i-ileft) then
begin
maxlen:=i-ileft;
imax:=ileft;
ileft:=i;
end;
end;
Procedure xuli;
var i,x,y:longint;
begin
assign(f,fn);
reset(f);
readln(f,n);
read(f,x);
ileft:=1;
maxlen:=0;
for i:=2 to n do
begin
read(f,y);
if (y<x) then update(i);
x:=y;
end;
update(n+1);
close(f);
end;
Procedure ghi;
begin
assign(g,gn);
rewrite(g);
writeln(g,imax,' ',maxlen);
close(g);
end;
BEGIN
xuli;
ghi;
END.
