Viết chương trình nhập mảng gồm n (n<=100)phần tử rồi xóa đi những phần tử trùng nhau trong mảng và in ra màn hình phần tử sau khi đã bỏ bớt. Càng ngắ

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.