program ct;
uses crt;
var A:array[1..1000] of integer;
      i,j,n,k:integer;
begin clrscr;
   write('Nhap so phan tu: '); readln(n);
   for i:=1 to n do
     begin 
        write('Nhap A[',i,']: '); readln(A[i]);
     end;
     i:=2;
   while i<=n do
     begin
        j:=1;
        while A[i]<>A[j] do j:=j+1;
        if i>j then
          begin
             for k:=i to n-1 do
                A[k]:=A[k+1];
             n:=n-1;
          end
               else i:=i+1;
     end;
   for i:=1 to n-1 do
     for j:=i+1 to n do
       if A[i]>A[j] then
         begin
            k:=A[i]; 
            A[i]:=A[j];
            A[j]:=k;
         end;
   write('Mang sau khi xoa va sap xep la: ');
   for i:=1 to n do
      write(A[i]:3);
readln;
end.

Học tốt!

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.

///////////////////////////////////////////////////////