Lời giải:

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.