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

assign(f2,'scmax.out');
rewrite(f2);
writeln(f2,max);

i:=k;
while max>0 do begin
if b[i]=max then begin Dec(max); write(f2,a[i],' ');  end;
Inc(i);
end;
close(f2);
end.