Đáp án và giải thích các bước giải:

uses crt;
var n,dem,i,j,dem1:longint;
    a:array[0..1000] of longint;
///////////////////////////
function nt(k:int64):boolean;
begin
        nt:=true;
        if (k<2) then exit(false) else
        for j:=2 to trunc(sqrt(k)) do if k mod j=0 then exit(false);
end;
//////////////////
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
        clrscr;
        readln(n);
        dem:=0;
        dem1:=0;
        for i:= 1 to n do
        read(a[i]);
        for i:=1 to n do
        begin
                if (nt(a[i])=true)  then inc(dem);
        end;
        for i:= 1 to n do
        if (dx(a[i])=true) then inc(dem1);
        write('co ',dem,' so nguyen to va co ',dem1,' so doi xung');
readln;
readln;
end.