Program NN;
Uses crt;
Var A: array[1..10000] of longint;
n,i,j,k: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do Read(A[i]);
i:=2;
While i<=n do
Begin
j:=1;
While A[j]<>A[i] do inc(j);
If j<i then
Begin
For k:=i to n-1 do
A[k]:=A[k+1];
n:=n-1;
End
Else inc(i);
End;
For i:=1 to n do Write(A[i],' ');
Readln
End.