var f:text;
    v,l:array[1..100000] of longint;
    max,i,n,k,max2,t:longint;
begin
assign(f,'scmax.in');
reset(f);
readln(f,n);
for i:=1 to n do
begin read(f,k);
       v[i]:=k;
end;
max2:=0;
close(f);
l[n]:=1;
for k:=n-1 downto 1 do
 begin
     max:=0;
     for i:=k+1 to n do
      if (v[i]>v[k]) and (l[i]>max) then
        max:=l[i];
      l[k]:=max+1;
      if l[k]>max2 then
      begin
                 t:=k;
                 max2:=l[k];
      end;
 end;
assign(f,'scmax.out');
rewrite(f);
writeln(f,max2);
for i:=t+1 to n do
begin
 if (v[i]>=v[t]) and (l[i]=max2-1) then write(f,v[i],' ');
 max2:=max2-1;
end;
close(f);
end.