uses crt;
var n,i,j,max:longint;
a,f:array[1..10000] of longint;
begin
assign(input,'LIQ.inp');
reset(input);
assign(output,'LIQ.out');
rewrite(output);
readln(n);
for i:=1 to n do
 readln(a[i]);
f[1]:=1;
for i:=2 to n do
begin
 max:=0;
 for j:=1 to i-1 do
  if a[j]<a[i] then
   if f[j]>max then max:=f[j];
 f[i]:=max+1;
end;
max:=f[1];
for i:=2 to n do
 if max<f[i] then max:=f[i];
write(max);
end.

uses crt;

var a:array[1..100]of integer;

    f:text      ;n,i,j,d,max,csd:integer;

procedure doctep;

    begin

      clrscr;

       assign(f,'liq.inp');

       reset(f);

       readln(f,n);

       for i:=1 to n do read(f,a[i]);

         close(f);

    writeln(n);

    for i:=1 to n do write(a[i]:5); writeln;

     end;       

begin

     doctep;

     d:=1;i:=2;

     while (i<=n ) do

       if {(a[i]>a[1]) and}(a[i]>a[i-1])  then begin d:=d+1; i:=i+1 ;end else i:=i+1;

      max:=d;

      writeln(d);

      for i:=2 to n-1 do

       begin

        d:=1 ;j:=i+1;

        while j<n do

         if

           (a[j]>a[j-1]) then begin d:=d+1 ; j:=j+1; end else j:=j+1;

          if d>max then max:=d;

        end;

          writeln(max);

      {ghitep;}

 assign(f,'liq.out');

 rewrite(f);

 for i:=n downto 1 do write(f,max:5);

 close(f);

 readln

 end.