uses crt;
var n,i,tong:longint; nt:boolean;
begin
clrscr;
   write('Nhap mot so: ');readln(n);
   nt:=true;
   for i:=2 to trunc(sqrt(n)) do 
      if n mod i=0 then nt:=false;
   tong:=0;
   repeat
      inc(tong,n mod 10);
      n:=n div 10;
   until n=0;
   for i:=2 to trunc(sqrt(tong)) do 
      if tong mod i=0 then nt:=false;
   writeln(nt);
readln
end.

program bai_giai;
uses crt;
var n,tn,i,d1,d2,a:longint;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    d1:=0;
    if n<2 then d1:=1
    else for i:=2 to n div 2 do
        if n mod i=0 then d1:=d1+1;
    tn:=0;
    while n<>0 do
        begin
            a:=n mod 10;
            tn:=tn+a;
            n:=n div 10;
        end;
    d2:=0;
    if tn<2 then d2:=1
    else for i:=2 to tn div 2 do
        if tn mod i=0 then d2:=d2+1;
    if (d1=0) and (d2=0) then write('La so song to')
        else write('Khong phai so song to');
    readln;
end.

Lưu ý: Kiểm tra số nguyên tố của mình là đầu tiên nếu nhỏ hơn 2 sẽ không phải số nguyên tố rồi sau đó mới đi đếm ước khác 1 và chính nó. Là số nguyên tố khi d=0.

- Đầu tiên là kiểm tra n có phải số nguyên tố hay không.

- Sau đó tính tổng các chữ số của n (tn).

- Tiếp theo kiểm tra tn có phải số nguyên tố hay không.

- Cuối cùng nếu của (d1=0) và (d2=0) nghĩa là của n và tn là số nguyên tố thì là số song tố, ngược lại thì không.