nhập n liệt kê các số song tố từ 1 đến n Vd:23 là số nguyên tố, tổng các chữ số của 23=2+3=5 cũng là số nguyên tố

program bai_giai;
uses crt;
var n,i:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
function tongcs(m:longint):byte;
var tong:byte;
begin
    tong:=0;
    while m<>0 do
        begin
            tong:=tong+m mod 10;
            m:=m div 10;
        end;
    exit(tong);
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    for i:=2 to n do
        if ktnt(i) and (ktnt(tongcs(i))) then write(i,' ');
    readln;
END.

function nto(n:int64):boolean;
var i : longint;
begin
 if n < 2 then exit(false);
  for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0 then exit(false);
  exit(true);
end;
function tcs(x:int64):int64;
var y : int64;
begin
y := 0;
while x > 0 do
 begin
  y := y + x mod 10;
  x := x div 10;
 end;
exit(y);
end;
var n:int64;
    i:longint;
begin
readln(n);
if (n < 10) then
  begin
    writeln('Khong thoa man');
    readln;
    exit;
  end;
for i := 10 to n do
if (nto(i)) and (nto(tcs(i))) then write(i,' ');
readln;
end.