记录编号	941	评测结果	AAAAAAAAAA
题目名称	[NOIP 2006]明明的随机数	最终得分	100
用户昵称	maxiem	是否通过	通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-23 14:46:55	内存使用	0.00 MiB

program random;
var
  i,j,tmp,n:integer;
  a:array [0..100] of integer;
  flag:boolean;
begin
  fillchar (a,sizeof(a),0);
  assign (input,'random.in');
  reset (input);
  readln (n);
  for i:=1 to n do begin
    read (tmp);flag:=true;
    for j:=1 to i-1 do if tmp=a[j] then flag:=false;
    if flag then begin
      inc(a[0]);
      a[a[0]]:=tmp;
    end
  end;
  close (input);
  assign (output,'random.out');
  rewrite (output);
  writeln (a[0]);
  for i:=1 to a[0]-1 do for j:=i+1 to a[0] do if a[i]>a[j] then begin
    tmp:=a[i];
    a[i]:=a[j];
    a[j]:=tmp;
  end;
  for i:=1 to a[0] do write (a[i],' ');
  close (output);
end.