program random(input,output,f1);

type sz=array[1..1000]of integer;

var que:sz;
    i,j,n,tem:integer;
    boo:boolean;
    f1:text;

procedure qs(var a:sz; lo,hi:Integer);
 procedure sort(l, r: Integer);
  var i, j, x, y: integer;
  begin
   i:=l;
   j:=r;
   x:=a[(l+r) div 2];
   repeat
    while a[i]>x do
     i:=i+1;

    while x>a[j] do
     j:=j-1;

    if i<=j then
    begin
     y:=a[i];
     a[i]:=a[j];
     a[j]:=y;
     i:=i+1;
     j:=j-1;
    end;
   until i>j;

   if l<j then Sort(l,j);
   if i<r then Sort(i,r);
  end;
 begin
  Sort(Lo,Hi);
 end;


begin
 assign(f1,'random.in');
 reset(f1);
 readln(f1,n);

 repeat
  read(f1,tem);
  boo:=true;
  for j:=1 to i do
   if tem=que[j]
    then boo:=false;
  if boo then
  begin
   i:=i+1;
   que[i]:=tem;
  end;
 until eof(f1);
 n:=i;
 close(f1);

 assign(f1,'random.out');
 rewrite(f1);
 writeln(f1,i);

 qs(que,1,n);

 for i:=n downto 1 do
  write(f1,que[i],' ');

 close(f1);
end.