uses crt;
var i,n:longint;

function tong(a:longint):longint;
begin
   tong:=0;
   repeat
      inc(tong,a mod 10);
      a:=a div 10;
   until a=0;
end;

function nt(a:longint):boolean;
var i:longint;
begin
   if a>1 then nt:=true else nt:=false;
   for i:=2 to trunc(sqrt(a)) do 
      if a mod i=0 then nt:=false;
end;

begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=10 to n do 
      if (nt(i))and(nt(tong(i))) then writeln(i);
readln;
end.

Uses crt;
Var 
    n,i,x,s,kt,k,o: LongInt;
Begin
    clrscr;
    writeln('Nhap N: '); readln(n);
    x:=n;
    writeln('Cac so song to: ');
    repeat
    x:=x-1; kt:=0;
    for i:=2 to x-1 do 
        if x mod i=0 then kt:=1;
    if kt=0 then
    begin
        s:=0; kt:=0; o:=x;
        while (o<>0) do
            begin     
            k:=o mod 10;
            o:=o div 10;
            s:=s+k;
            end;
        for i:=2 to s-1 do 
        if s mod i=0 then kt:=1;
        if kt=0 then write(x,' ');
    end;
    until (x=10);
    readln;
End.