program baigiai;

uses crt;

var A:array[0..1000] of integer;

      n,i,j,tg,d:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i]);

 end;

for i:=1 to n-1 do

 for j:=i+1 to n do

  if A[i]>A[j] then

   begin

    tg:=A[i];

    A[i]:=A[j];

    A[j]:=tg;

   end;

i:=1;

while i<=n do

 begin

  if A[i]<>A[i+1] then

   begin

    d:=1;

     j:=i-1;

     while (A[i]=A[j]) and (j>=1) do

      begin

        j:=j-1;

        d:=d+1;

     end;

     if d mod 2=1 then writeln(A[i]);

   end;

  i:=i+1;

 end;

readln

end.

uses crt;
var n,i,j,d:longint;
a:array[1..100000]of longint;
begin
clrscr;
   writeln('Input');
   readln(n);
   for i:=1 to n do read(a[i]); readln;
   writeln('Output');
   for i:=1 to n do
      begin
         d:=0;
         for j:=1 to n do if a[i]=a[j] then inc(d);
         if d mod 2=1 then begin writeln(a[i]); break; end;
      end;
readln
end.