Найти количество N-значных трипростых чисел

    var
    d,i, j, b, p1, p2, p3, n, ans, u,k, p, s:longint;
    k1,k2,k3:char;
    stroka:string;
    begin
    s:=0;
    read(n);
    k:=1; d:=0; b:=0;
    for i:=1 to n do
    k:=k*10;
    p:=k div 10;
    k:=k-1;
    for i:=p to k do
    begin
    str(i,stroka); 
    for j:=1 to (length(stroka)-2) do
    begin
    k1:=stroka[j];  k2:=stroka[j+1];  k3:=stroka[j+2];
    p1:=ord(k1)-48; p2:=ord(k2)-48; p3:=ord(k3)-48; 
    ans:=p1*100+p2*10+p3;
    d:=0; k:=0;
     for u:=1 to ans do
    if ans mod u = 0 then
    k:=k+1;
   if k<=2 then 
    d:=d+1;
    end;
   if d<>0 then s:=s+1;
   end;
   write(s);
    end.

var
    d,i, j, b, p1, p2, p3, n, ans, u,k, p, s:longint;
    k1,k2,k3:char;
    stroka:string;
    begin
    s:=0;
    read(n);
    k:=1; d:=0; b:=0;
    for i:=1 to n do
    k:=k*10;
    p:=k div 10;
    k:=k-1;
    for i:=p to k do
    begin
    str(i,stroka); 
    d:=0;
    for j:=1 to (length(stroka)-2) do
    begin
k:=0;
    k1:=stroka[j];  k2:=stroka[j+1];  k3:=stroka[j+2];
    p1:=ord(k1)-48; p2:=ord(k2)-48; p3:=ord(k3)-48; 
    ans:=p1*100+p2*10+p3;
     if p1<>0 then
     begin
     for u:=1 to ans do
    if ans mod u = 0 then
    k:=k+1;
   if k<=2 then 
    d:=d+1;
     
    if d=n-2 then s:=s+1;
   end;
   end;
  end;
 write(s);
    end.

function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var i,k:longint;
begin
k:=0;
for i:=1000 to 9999 do
if (prost(i div 10))and(prost(i mod 10)) then k:=k+1;
writeln('k=',k);
end.

if (prost(i div 10))and(prost(i mod 1000)) then k:=k+1;

const 
    base = 1000000009;
var
    a :array[0 .. 1000] of boolean;
    i, p1, p2, p3, n, ans :longint;
    d :array[0 .. 10010, 0 .. 9, 0 .. 9] of longint;
    
function check(x :longint) :boolean;
var t :longint;
begin
    t := 2;
    check := true;
    while (t * t <= x) do begin
        if (x mod t = 0) then check := false;
        t := t + 1;
    end;
end;
 
begin
    read(n);
 
    for i := 100 to 999 do
        a[i] := check(i);
    
    for p1 := 0 to 9 do
        for p2 := 0 to 9 do
            for p3 := 0 to 9 do
                if (a[p1 * 100 + p2 * 10 + p3]) then
                    d[3][p3][p2] := d[3][p3][p2] + 1;
    
    for i := 4 to n do begin
    
        for p1 := 0 to 9 do
            for p2 := 0 to 9 do
                for p3 := 0 to 9 do
                    if (a[p1 * 100 + p2 * 10 + p3]) then
                        d[i][p3][p2] := (d[i][p3][p2] + d[i - 1][p2][p1]) mod base;
    end;
 
    for p1 := 0 to 9 do
        for p2 := 0 to 9 do
            ans := (ans + d[n][p1][p2]) mod base;
 
    writeln(ans);
end.

function check(x :longint) :boolean;
var t :longint;
begin
    t := 2;
    check := true;
    while (t * t <= x) do begin
        if (x mod t = 0) then check := false;
        t := t + 1;
    end;
end;
var i,k:integer;
begin
k:=0;
for i:=1000 to 9999 do
if check(i div 10)and(check(i mod 1000)) then k:=k+1;
//i div 10 число из первых 3х цифр, i mod 1000, из последних 3х
write(k)
end.

function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var i,k:longint;
begin
k:=0;
for i:=1000 to 9999 do
if (prost(i div 10))and(prost(i mod 1000)) then
 begin
  k:=k+1;
  writeln(i,' ',i div 10,' ',i mod 1000)
 end;
writeln;
writeln('k=',k);
end.