var
  n, i, a, q: integer;
  x: array[-30000..30000] of boolean;

begin
  q := 0;
  write('n=');
  readln(n);
  for i := 1 to n do
  begin
    read(a);
    x[a] := true;
  end;
  write('Ваш массив без повторяющийхя элементов '); 
  for i := -30000 to 30000 do 
    if x[i] then begin
      write(i, ' ');
      inc(q);
    end;
  writeln;
  writeln('Кол-во элементов в новом массиве=', q);
end.