program subsircrescator;
type vector=array[1..100000] of longint;
var v:vector;
    f,g:text;
    d,k,i,n,j:integer;
    t:longint;
    max:integer;
begin
assign (f,'scmax.in');
reset(f);
assign (g,'scmax.out');
rewrite(g);
readln (f,n);
for i:=1 to n do read(f,v[i]);
max:=0;
for i:=1 to n do begin
d:=1;
t:=v[i];
for j:=i+1 to n do if v[j]>t then begin
 d:=d+1;
 t:=v[j];
 end;
if d>max then begin
 k:=i;
 max:=d;
 end;
end;
writeln (g,max);
write (g,v[k],' ');
t:=v[k];
for i:=k+1 to n do if v[i]>t then begin
 write (g,v[i],' ');
 t:=v[i];
 end;
close(f);
close(g);
end.