program lagano;
var n,x,k,cc,ccmax,t,i:integer;
begin
readln(n,x);
k := x;
cc := 1;
ccmax := cc;
t := 1;

for i:=2 to n do
begin
readln(x);
if (x > k) then cc:= cc+1
else begin
if (cc>ccmax) then begin ccmax := cc; t:=i-ccmax; cc:=1; end
else cc:=1;
end;

k := x;
end;
if (cc>ccmax) then begin ccmax := cc; t:=n-ccmax; cc:=1; end;

writeln(ccmax,' ',t+1);     //+1 u pascalu
end.