В исходном массиве X(n) вывести номера тех элементов массива, которые являются простыми числами. - QBasic

DEFINT A, I-J, N, R
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM a(n)
 
FOR i = 1 TO n
   a(i) = 81 * RND - 40.5
   PRINT USING "####"; a(i);
NEXT i
 
r0 = ABS(a(1) - a(2))
i1 = 1
i2 = 2
FOR i = 1 TO n - 1
   FOR j = i + 1 TO n
      r = ABS(a(i) - a(j))
      IF r < r0 THEN
         r0 = r
         i1 = i
         i2 = j
      END IF
   NEXT j
NEXT i
 
PRINT
PRINT "i1 = "; i1
PRINT "i2 = "; i2
END