Заполните одномерный массив из 12 элементов случайным образом и найдите сумму чисел, которые по модулю меньше 6 — QBasic(Бейсик)

DIM M(12) AS INTEGER
RANDOMIZE TIMER
CLS
  '  Заполнение случ. образом
  FOR i = 1 TO 12
    M(i) = RND * 21 - 10
    PRINT M(i);
  NEXT: PRINT
  '  Ищем сумму
  FOR i = 1 TO 12
     IF ABS(M(i)) < 6 THEN S = S + M(i)
  NEXT
PRINT "S ="; S