uses crt;
var n,i,x,m,kt,t:longint; a,b:array[1..100000000]of longint;
begin
clrscr;
write('n=');readln(n);
for x:=1 to n do
begin
write('a[',x,']=');readln(a[x]);
kt:=0;
for i:=1 to x-1 do if a[i]=a[x] then kt:=1;
if kt=0 then
begin
inc(m); b[m]:=a[x];
for i:=1 to m do
if b[i]>b[m] then
begin t:=b[i]; b[i]:=b[m]; b[m]:=t; end;
end;
end;
for i:=1 to m do write(b[i],' ');
readln
end.
///////////////////////////////////////////////////////