。。。
var b,c,f,n,g:longint;
a:array[1..1000] of boolean;
d:integer;
begin
readln(n);
b:=0;
fillchar(a,sizeof(a),false);
for f:=1 to n do
begin
read(c);
if not a[c] then begin a[c]:=true;inc(b);end;
end;
writeln(b);
for f:=1 to 1000 do
if a[f] then write(f,' ');
readln
end.{qqqqqqq}