const l = 10;
type mas = array [1..l] of integer;

procedure unique(A:mas; var B: mas; var m: integer);
var i, j: integer;
    f: boolean;
begin
  m := 0;
  for i := 1 to l do
    begin
     f := true;
     for j := 1 to l do f := f and ((i = j) or (A[j] <> A[i]));
      if f
        then begin
          m:=m+1;
          B[m] := A[i]
        end
    end
end;

var b, c: mas;
    i, k, n: integer;
begin
  writeln('Исходный массив=');
  for i := 1 to l do
  writeln;
  unique(b, c, k);
  writeln('Уникальные элементы:');
  if k = 0
    then write('Not found')
    else for i := 1 to k do writeln(c[i]);
  readln
end.