Pascal 编程输出10000内的所有绝对素数。 绝对素数是指本身是素数，其逆序数也是素数的数。

汗……楼上的太有才了！
const n=5;
var
x:array[1..10] of integer;
y:array[1..10] of Boolean;
procedure outit;
var i:integer;
begin
for i:=1 to n do
write(x[i]);