type vektor1=array[1..5000] of longint;
        vektor2=array[1..5000] of integer;
var v:vektor1; u:vektor2; n,i,j,max:integer;
f,g :text;
begin
assign(f,'subsir2.in');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,v[i]);

for i:=n downto 1 do
begin
 max:=0;
 for j:=n downto i+1 do
 begin
   if v[j]>=v[i]
   then
   begin
     if u[j]>max
     then max:=u[j];
   end;
 end;
 u[i]:=max+1;
end;

max:=0;
for i:=1 to n do
if u[i]>max then  max:=u[j];
close(f);
assign(g,'subsir2.out');
rewrite(g);
writeln(g,max);
close(g);
end.