viết chương trình nhập vào 1 dãy số nguyên in ra màn hình các số không trùng nhau

//bạn dùng một mảng tính tổng số lần xuất hiện của các số trong dãy

program sokhongtrung;

var n, i, j, tam: integer;

      A, B: array[1..100] of integer;

begin

         fillchar(B, sizeof(B), 0);    // Khởi tạo tất cả giá trị mảng đánh dấu B = 0

         readln(n);                           // Người dùng nhập n và n số nguyên

         for i:=1 to n do               

                read(a[i]);

         writeln();

         for i:=1 to n-1 do                  // Sắp xếp mảng n theo thứ tự tăng dần

                for j:=i+1 to n do

                         if a[i] > a[j] then

                                 begin

                                         a[i] := tam;

                                         a[i] := a[j];

                                         a[j] := tam;

                                  end;

     for i:=1 to n do

                B[i] := B[i] + 1;

     for i:= 1 to a[n] do

                if B[i] = 1 then write(B[i], "  ");

     readln;

end.

Thấy hay thì vote 5* nha!

uses crt;
var n,i,j,kt:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to n do
      begin
         kt:=0;
         for j:=1 to i-1 do if a[i]=a[j] then inc(kt);
         if kt=0 then writeln(a[i]);
      end;
readln;
end.