noip2006/random.pas

   1 var
   2 n,i,t:longint;
   3 a:array [1..1000] of longint;
   4
   5 begin
   6   readln(n);
   7         for i:=1 to n do begin read(t); a[t]:=1; end;
   8         t:=0;
   9         for i:=1 to 1000 do
  10           if a[i]<>0 then inc(t);
  11         writeln(t);
  12         for i:=1 to 1000 do
  13                 if a[i]<>0 then write(i,' ');
  14         writeln;
  15 end.