Có vẻ bạn đang làm bài số nguyên tố đối xứng nhỉ?

var A:ARRAY[1..1000000] of longint;
    i, n, t: longint;

function snt(x: longint): boolean;
var j:longint;
begin
    snt:=true;
    if x < 2 then snt:=false;
    if x = 2 then snt:=true;
    if x > 2 then
        begin
            for j:=2 to trunc(sqrt(x)) do
                if x mod j = 0 then
                    snt:=false;
        end;
end;

function sdx(y: longint): boolean;
var s, tg: string;
    i: longint;
begin
    str(y, 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
    readln(n);
    for i:=1 to n do read(A[i]);

    t:=0;
    for i:=1 to n do
        if sdx(a[i]) then
            begin
                if snt(a[i]) then
                    t:=t + 1;
            end;
    write(t);
end.