var i,j,k,l,m,n,max,pos:longint; f1,f2:text; a,b:array[1..100000] of longint;
begin
assign(f1,'scmax.in');
reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
close(f1);
max:=0;
b[n]:=1;
for i:=n-1 downto 1 do begin
for j:=i+1 to n do
if (a[i]<a[j]) and (b[i]<b[j]) then b[i]:=1+b[j];
if b[i]>max then begin max:=b[i]; pos:=i; end;

end;
assign(f1,'scmax.out');
rewrite(f2);
writeln(f2,max);
write(f2,a[pos],' ');
max:=max-1;
for i:=pos+1 to n do begin
if (a[i]>a[pos]) and (b[i]=max) then begin
write(f2,a[i],' ');
max:=max-1;
end;
end;
end.