Superprime Rib特殊的质数肋骨

Superprime Rib特殊的质数肋骨
农民约翰母牛总是产生最好的肋骨.
你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们.
农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上
的数字都组成一个质数,举例来说:
7 3 3 1
全部肋骨上的数字 7331 是质数;三根肋骨 733 是质数;二根肋骨 73 是质数;当然,最后一根肋骨
7 也是质数.
7331 被叫做长度 4 的特殊质数.
写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数.
数字 1 不被看作一个质数.
PROGRAM NAME: sprime
INPUT FORMAT
单独的一行包含 N.
SAMPLE INPUT (file sprime.in) 
4
OUTPUT FORMAT
按顺序输出长度为 N 的特殊质数,每行一个.
SAMPLE OUTPUT (file sprime.out)
2333
2339
2393
2399
2939
3119
3137
3733
3739
3793
3797
5939
7193
7331
7333
7393

====================

================

{
ID:jie19952
PROG:sprime
LANG:PASCAL
}
uses
  math;
var
  n:longint;
procedure init;
begin
  assign(input,'sprime.in');
  assign(output,'sprime.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function pd(t:longint):boolean;
var
  i:longint;
begin
  if t=1 then exit(false);
  pd:=true;
  for i:=2 to trunc(sqrt(t)) do
    if t mod i=0 then exit(false);
end;

procedure dfs(t:longint;now:longint);
var
  i:longint;
  now_n:longint;
begin
  if t=n+1 then
    begin
      writeln(now);
      exit;
    end;
  for i:=1 to 9 do
    begin
      now_n:=now*10+i;
      if pd(now_n) then
        begin
          dfs(t+1,now_n);
        end;
    end;
end;

procedure main;
var
  i:longint;
begin
  readln(n);
  for i:=2 to 9 do
    if pd(i) then
    dfs(2,i);
end;

begin
  init;
  main;
  terminate;
end.