记录编号	1110	评测结果	AAAAAAAAAA
题目名称	[NOIP 2006]明明的随机数	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2008-07-24 09:12:20	内存使用	0.11 MiB

program random(input,output);
var
 a:array[1..100]of integer;
 i,j,k,s,n,m:integer;
begin
 assign(input,'random.in');assign(output,'random.out');
 reset(input);rewrite(output);
 for i:=1 to 100 do
  a[i]:=0;
 readln(input,s);
 read(input,a[1]);k:=1;
 for i:=2 to s do begin
  read(input,n);
  j:=1;
  while (j<=k) and (n>a[j])do j:=j+1;
  if n<>a[j] then begin
   for m:=k+1 downto j+1 do
    a[m]:=a[m-1];
   a[j]:=n;
   k:=k+1;
  end;
 end;
 writeln(output,k);
 for i:=1 to k do
  write(output,a[i],' ');
 close(input);close(output);
end.