type TType = integer;
var
         n:integer;
  a: array[1 .. 1000] of integer;

function find_ascend(var arr: array of ttype;
         const n: integer; var max: integer): integer;

  var curr, start: integer;

  function check_max(i: integer): integer;
    begin
      if max < curr then
        begin
          max := curr;
          check_max := i - curr + byte(i = pred(n))
        end
      else check_max := start
    end;

  var
    i: integer;

  begin
    max := 0; curr := 1;
    start := 1;

    for i := 1 to pred(n) do
      begin
        if arr[i - 1] < arr[i] then
          inc(curr)
        else
          begin
            start := check_max(i);
            curr := 1
          end;
      end;
    start := check_max(i);
    find_ascend := start
end;


var i,_start, _max: integer;
begin
readln(n);
for i:=1 to n do
readln (a[i]);
writeln(a:n);
  _start := find_ascend(a, n, _max);
  writeln(_max) ;

end.