很简单的:

var
i:integer;
function p(i:longint):boolean;
var
a:array[1..9] of integer;
x:longint;
j,j:integer;
b:boolean;
begin
fillchar(a,sizeof(a),0);
j:=10;
x:=11;
while x>0 do
begin
j:=j-1;
a[j]:=x mod 10;
x:=x div 10;
end;
n:=(10-j) div 2 ;
b:boolean;
for k:=1 to n do
 if a[k+j-1]<>a[10-k] then
   b:true;
if not b then
p:=true
else p:=false;
end;{p}
begin
write(11,' ');
for i:=12 to 999 do
if (p(i)) and (p(i*i)) and (p(i*i*i)) then
write(i,' ');
end.

问一下你是不是嵊州城关中学的?

谢谢了！我不是嵊州城关的。