program sap_xep_va_loai_bo;
uses crt;
const N = 10; {số phần tử của list}
var a: array[1..N] of integer;
    i,j,k: integer;
begin
  randomize; {khởi tạo số ngẫu nhiên}
  for i:=1 to N do a[i] := random(100); {tạo list ngẫu nhiên}
  
  {sắp xếp list theo thứ tự tăng dần}
  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;
  
  {loại bỏ các phần tử giống nhau}
  for i:=1 to N-1 do
    for j:=i+1 to N do
      if a[i]=a[j] then begin
        for k:=j to N-1 do a[k]:=a[k+1];
        N:=N-1;
        j:=j-1;
      end;
  
  {in ra list sau khi sắp xếp và loại bỏ các phần tử giống nhau}
  for i:=1 to N do write(a[i],' ');
  readln;
end.