Вычислить сред геометрическую положительных элементов массива R(m). Массив R(m) вывести на печать — QBasic(Бейсик)

CLS
RANDOMIZE TIMER
INPUT "vvedite m"; m
DIM r(m): p = 1
FOR i = 1 TO m
    r(i) = FIX(RND * 100 - 15)
NEXT
FOR i = 1 TO m
    PRINT r(i);
NEXT
PRINT
PRINT STRING$(80, 196)
FOR i = 1 TO m
    IF r(i) > 0 THEN p = p * r(i): k = k + 1
NEXT
srgeom = p ^ (1 / k)
PRINT "srgeom:"; srgeom