program Hello;
uses crt;
var a:array[1..100000] of longint;
    n,i,d,tong:longint;
function dx(a:longint): boolean;
var b: string;
    i: byte;
begin
    str(a,b);
    for i:= 1 to length(b) div 2 do
        if b[i] <> b[length(b) - i +1] then
            exit(false);
    exit(true);
end;
begin
    readln(n);
    d:= -1;
    for i:= 1 to n do 
        begin
            read(a[i]);
            if dx(a[i])= true then d:= 0; 
        end;
    if d = -1 then
        writeln('khong co')
    else
        begin
            writeln('Cac phan tu doi xung: ');
            for i:= 1 to n do 
                if dx(a[i]) = true then 
                    begin
                        inc(d);
                        tong:= tong + a[i];
                        write(a[i], ' ');
                    end;
            writeln;
            writeln('Co ', d, ' so phan tu doi xung va tong bang ', tong);
        end;
readln;
readln;
end.

uses crt;
var i,n,a,t,k:longint;
function dx(n:longint):boolean;
var i:byte;
    s:string;
begin
    str(n,s);
    for i:=1 to length(s) div 2 do
        if s[i]<>s[length(s)-i+1] then exit(false);
    exit(true);
end;
begin
    clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a);
            if dx(a)=true then
                begin
                    t:=t+a;
                    write(a,' ');
                    k:=1;
                end;
        end;
    if k=0 then write('khong co')
       else
          begin
              writeln;
              writeln(t);
          end;
readln;readln;
end.