uses math;
var x,ad,ad1,nr:array[0..100000] of longint;
    i,j,a,b,n:longint;
    t:text;
begin
assign(t,'scmax.in'); reset(t);
readln(t,n);
for i:=1 to n do
  begin
    read(t,nr[i]);
    for j:=1 to i-1 do
      begin
        if ((x[j]+1>x[i]) and (nr[j]<nr[i])) then
          begin
            ad[i]:=j;
            ad1[i]:=nr[j];
            x[i]:=x[j]+1;
          end;
      end;
  end;
close(t);
assign(t,'scmax.out'); rewrite(t);
writeln(t,maxvalue(x));
close(t);
end.