Составить программу вычисления произведения элементов двумерного массива, больших 10- QBasic(Бейсик)

DEFDBL A-Z
   CLS
   INPUT m
   INPUT n
      DIM A(m, n)
    FOR i = 1 TO m
    FOR j = 1 TO n
         A(i, j) = RND * 15
    NEXT: NEXT
    Pr = 1
      FOR j=1 TO n
          FOR i=1 TO m
          IF A(i, j) > 10 THEN Pr = Pr * A(i, j): F = 1
          NEXT j
      NEXT i
    IF F = 0 THEN Pr = 0
PRINT "Proizved : "; Pr