1
用奥数的方法
2
先生成质数表，再枚举

1.program page;
  var
    a,i,j,k,l:longint;  st:string;
  begin
     k:=0; a:=0;
    repeat
      a:=a+1;
      str(a,st);
      l:=length(st);
      for i:=1 to l do
        if st[i]='1' then k:=k+1;
    until k=202;
    writeln('the page: ',a);
    readln;
  end.
2.program zhishu;
  var
    a,i,n,k,l:longint;
  begin
    write('n='); readln(n);
    k:=0;  a:=1999;
    repeat
      a:=a+1;
      l:=2;
      while (a mod l<>0)and (a>l)do l:=l+1;
      if a<=l then begin
                     write(a:6);
                     k:=k+1;
                   end;
    until k=n;
    readln;
  end.