Untitled

program poft_4;
const
  nmax=10;
var
  a,b:array[1..nmax] of integer;
  n,j,c,i:integer;
  flag:boolean;
BEGIN
  Repeat
    Writeln('������ ������⢮ �����⮢ ���ᨢ�');
    Readln(n);
    if (n<1) or (n>10) then
      Writeln('�訡��');
  Until (n<=10) and (n>=1);
  Writeln('������ ������� ���ᨢ�');
  for i:=1 to n do
    Read(a[i]);
  Writeln;

  c:=0;
  for i:=1 to n do
    begin
      flag:=false;
      j:=1;

      while (flag=false) and (j<=n) do
        if (a[i]=a[j]) and (i<>j) then
          flag:=true
        else j:=j+1;

      if flag=false then
        begin
          c:=c+1;
          b[c]:=a[i];
        end;
    end;

  writeln('��᫮ �����⮢ ��ନ஢������ ���ᨢ� =', c);
  for i:=1 to c do
    write(b[i]);
End.