uses crt;

var n,j,d:word;

function so(n:word):word;

var tam:byte;

        begin

                so:=0;

                while n>0 do

                begin

                        tam:=n mod 10;

                        n:=n div 10;

                        so:=so+(tam*tam);

                end;

        end;

function snt(x:word):boolean;

var i:word;

        begin

                if x<2 then snt:=false

                else

                begin

                        snt:=true;

                        for i:=2 to trunc(sqrt(x)) do

                                if x mod i=0 then exit(false);

                end;

        end;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        j:=1;

        repeat

                inc(j);

                if snt(so(j)) then dec(n);

        until

                n=0;

        write(j);

        readln

END.

Chúc bạn học tốt!

uses crt;
var i,n,m:longint; a:array[1..1000000]of longint;
function tong(a:longint):longint;
begin
   tong:=0;
   repeat
      inc(tong,sqr(a mod 10));
      a:=a div 10;
   until a=0;
end;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
begin
clrscr;
   write('N (0<N<32767)= ');readln(n);
   repeat
      inc(i);
      if nt(tong(i)) then inc(m);
   until m=n;
   writeln(i);
readln
end.

Test: