给出n个整数，其中n是奇数，且n小于100 接下来n行，每行一个整数，这n个整数中，只有1个数是单独的

给出n个整数，其中n是奇数，且n小于100 接下来n行，每行一个整数，这n个整数中，只有1个数是单独的（就是说其他数每个数都有两个）
输出一行，表示单独的那个数
pascal解！

var
a:array[0..10000]of integer;
i,s,n:integer;
begin
read(n);
for i:=1 to n do
begin
read(s);
a[s]:=a[s]+1;
end;
for i:=10000 downto 1 do
if a[i]=1 then
begin
write(i);
halt;
end;
end.
很好理解吧，看不懂就接着问

var a:array[1..1000000] of longint; i,n,j,k:longint; begin readln(n); for i:=1 to n do begin read(j); inc(a[j]); end; for i:=1 to 1000000 do if a[i]=1 then writeln(i); end.