uses crt;
var v,r:text; 
i,n,tam,s,j:integer;
a:array[1..100] of integer;
begin
assign(v,'Ductiec.inp');
reset(v);
readln(v,n);
for i:=1 to n do readln(v,a[i]);
assign(r,'Dutiec.out');
rewrite(r);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]>=a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
 for i:=1 to n do write(a[i],' ');
 writeln;
i:=1;
while i<=n do
begin
s:=a[i];
while a[i]=a[i+1] do
begin
 i:=i+1;
 s:=s+a[i];
end;
if s mod 2<>0 then write(r,a[i]);
i:=i+1;
end;
close(r);
end.

uses crt;
type mt=record
        so:longint;
        lanlap:longint;
end;
var n:longint; a:array[1..50000]of MT; f:text;
procedure doc;
var i,c:longint;
        begin
         assign(f,'Dutiec.inp');
         reset(f);
         readln(f,n);
         for i:=1 to 106 do a[i].so:=0;
         for i:=1 to 106 do a[i].so:=i;
         for i:=1 to n do
                begin
                 readln(f,c);
                 inc(a[c].lanlap);
                end;
         close(f);
        end;
procedure ghi;
var i:longint;
        begin
         assign(f,'Dutiec.out');
         rewrite(f);
         i:=1;
         while a[i].lanlap mod 2=0 do inc(i);
         write(f,a[i].so);
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.