{ScallopVN}

Program SNTghep;
Uses crt;
Var A, B:ARRAY[1..500] OF INTEGER;
    k, dem, i, j: integer;
Function SNT(x: integer): boolean;
Var y: integer;
    kt: boolean;
Begin
        kt:=true;
        If x>=2 then
                For y:=2 to trunc(sqrt(x)) do
                        If x mod y = 0 then
                                Begin
                                        kt:=false;
                                        Break;
                                End;
        If x<2 then kt:=false;
        SNT:=kt;
End;
Function ghepso(g1, g2: integer): integer;
Var scs, tam, bp, z: integer;
Begin
        scs:=0;
        tam:=g2;
        Repeat
                tam:=tam div 10;
                Inc(scs);
        Until   tam=0;
        bp:=1;
        For z:=1 to scs do bp:=bp*10;
        ghepso:=g1*bp+g2
End;
BEGIN
        Clrscr;
        Repeat
                Write('Nhap K (0<K<=500): ');   Readln(k);
        Until (k>0) AND (k<=500);
        Repeat
                Inc(i);
                If SNT(i) then
                        Begin
                                Inc(dem);
                                A[dem]:=i;
                        End;
                If dem=2 then
                        Begin
                                dem:=0;
                                If SNT(ghepso(A[1],A[2])) then
                                        Begin
                                                Inc(j);
                                                B[j]:=ghepso(A[1],A[2]);
                                        End;
                        End;
        Until j=k;
        Writeln(B[j]);
        Readln;
END.

{ScallopVN}

Cảm ơn chị đã đọc câu trả lời của em, chúc chị học tốt! Cho em câu trả lời hay nhất nha! Thanks!

uses crt;
var f:text; a,m,d,k:longint;  
b:array[1..2]of longint;
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;
function ghep(a,b:longint):longint;
var s,s1:string;
begin
   str(a,s);
   str(b,s1);
   val(s+s1,ghep);
end;
begin
clrscr;
   assign(f,'input.pas');reset(f);
      readln(f,k);
   close(f);
   assign(f,'output.pas');rewrite(f);
      a:=1; 
      repeat
         inc(a);
         if nt(a) then
            begin
               inc(d);
               if d=3 then d:=1;
               b[d]:=a;
            end;
         if (d=2)and(nt(ghep(b[1],b[2]))) then  
            begin d:=0; inc(m); end;
      until m=k;
      writeln(f,b[1],b[2]);
   close(f); 
end.