CLS
INPUT N
FOR I = 11 TO N
  F = 0
  FOR J = 2 TO INT(SQR(I))
    IF I MOD J = 0 THEN F = 1: EXIT FOR
  NEXT J
  IF F = 0 THEN
    P = I
    K = 0
    DO
      K = K + 1
      A(K) = P MOD 10
      P = P \ 10
    LOOP UNTIL P = 0
    T = 0
    FOR J = 1 TO K
      IF A(J) <> A(K + 1 - J) THEN T = 1
    NEXT J
    IF T = 0 THEN PRINT I; "   ";
  END IF
NEXT I

利用循环嵌套