var v:array[1..5000] of longint;
   b,c:array[1..5000] of byte;
   j,m,n,i,k,k1,k2,l,max:longint;
    f,g:text;
{}
begin
assign(f,'subsir2.in');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,v[i]);
close(f);
max:=0;
for i:=1 to n-1 do
   begin
   j:=i;
   l:=1;
   b[l]:=1;
   while j<n+1 do
   begin
   j:=j+1;
   l:=1;
   for k:=2 to n do
   b[k]:=0;
   k1:=i;
   for k2:=j to n do
             if v[k1]<v[k2] then
                       begin
                        l:=l+1;
                        k1:=k2;
                        b[k2]:=1;
                        end;
   if l>max then begin max:=l; for k:=1 to n do c[k]:=b[k]; end;
   end;
   end;
assign(g,'subsir2.out');
rewrite(g);
writeln(g,max);
for i:=1 to n do
if c[i]=1 then write(g,v[i],' ');
close(g);
end.