uses crt;
type vek=array[0..100000] of longint;
var v,o,v1,v2:vek;
    f,g:text;
    a,z,c,b,n,m,i,j:longint;
begin
clrscr;
assign(g,'scmax.in');
reset(g);
readln(g,n);
v1[n]:=1;
for i:=1 to n do
 read(g,v[i]);
for j:= n-1 downto 1 do
begin
   c:=0;
   for i:= j+1 to n do
    if v[j]<v[i] then
     if v1[i]>c then c:=v1[i];
   v1[j]:=c+1;
end;
z:=0;
c:=0;
for i:=1 to n do
if v1[i]>c then c:=v1[i];
assign(f,'scmax.out');
rewrite(f);
writeln(f,c);
for i:= 1 to n do
if (v1[i]=c) and (v[i]>o[z]) then begin inc (z);
                                       o[z]:=v[i];
                                       dec(c);
                                    end;
for i:= 1 to z do
write(f,o[i],' ');
close(f);


end.