Số song tố

Số song tố là số nguyên tố có tổng các chữ số cũng là số nguyên tố.
Ví dụ: 11 là số song tố vì 11 là số nguyên tố và 1+1=2 là số nguyên tố
Viết chương trình nhập vào một số nguyên dương n
a/ Kiểm tra n có phải là số nguyên tố hay không?
b/ In ra màn hình câc số song tố không lớn hơn n.
c/ In ra màn hình các cặp số nguyên tố sinh đổi bé hơn hoặc bằng n.

Bì giải:
uses crt;
var n,i: word;
function snt(n: word): boolean;
var i: word;
d: byte;
begin
d:= 0;
for i:= 1 to n do if n mod i = 0 then inc(d);
if d=2 then snt:= true else snt:= false;
end;
function tcs(n: word): byte;
var s,t: word;
begin
s:= n; t:= 0;
repeat
t:= t+(s mod 10);
s:= s div 10;
until s=0;
tcs:= t;
end;
begin
clrscr;
write('Nhap vao mot so: '); readln(n);
if snt(n) and snt(tcs(n)) then writeln(n,' la so song to.')
else writeln(n,' khong phai la so song to.');
writeln('Cac so song to ko lon hon ',n,': ');
for i:= 1 to n do if snt(i) and snt(tcs(i)) then write(i:5);
writeln;
writeln('Cac cap so nguyen to sinh doi khong lon hon ',n,': ');
for i:= 3 to n-2 do if snt(i) and snt(i+2) then writeln(i,' ; ',i+2);
readln
end.

Like