program phantu_le;
uses crt;
var A:array[1..10000] of integer;
    n,i,j,tg,d:integer;
begin
    clrscr;
    write('Nhap so phan tu: ');   readln(n);
    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] mod 2=1 then
                begin
                    d:=1;  i:=i+1;
                        while A[i]=A[i-1] do
                            begin
                                d:=d+1;
                                i:=i+1;
                            end;
                    if d mod 2=1 then write(A[i-1],' ');
                end
            else i:=i+1;
        end;
    readln;
end.

program hama;
uses crt;
  var A: array[1..500] of integer;
  n, i, j, d: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(A[i]);
        end;
        write('So can tim: ');
        for i:=1 to n do if (A[i] mod 2 <> 0) and (A[i]<>A[i+1]) then
        begin
                d:=0;
                for j:=1 to n do if A[i]=A[j] then d:=d+1;
                if A[i]=d then write(A[i]:3);
        end;
        readln
end.