判断10000以内既是质数有是回文数的数 pascal

B:for(int i=1000;i<=9999;i++){
String s=i+"";//将数字转化成字符串
String s1=s.substring(0, 1);//取其千位数字
String s2=s.substring(1, 2);//取其百位数字
String s3=s.substring(2, 3);//取其十位数字
String s4=s.substring(3, 4);//取其个位数字
if(s1.equals(s4) && s2.equals(s3)){//判断千位数字是否等于个位数字并且百位数字是不是等于十位数字
for(int j=2;j<i;j++){//一下判断是否质数
if(i%j==0){
continue B;//能整除就不是质数,返回继续循环
}
}
System.out.println(i+" ");//打印出质数
}
}

以上用JAVA实现！

program zhihuiwen;
var s:string;a:array[1..4000]of longint;i,j,k,n,r,l:longint;b:boolean;
begin
for i:=2 to 10000 do
begin
for j:=2 to trunc(sqrt(i)) do
begin
b:=i mod j=0;
if b then break;
end;
if not b then begin inc(k);a[k]:=i end
end;
for i:=1 to k do
begin
r:=0;
str(a[i],s);
l:=length(s);
for n:=1 to l d