Дан массив A(6), состоящий из случайных чисел от 1 до 9. Вывести сам массив, а также сумму и произведение его элементов- QBasic(Бейсик)

CLS
RANDOMIZE TIMER
n = 6: p = 1
DIM a(n)
FOR i = 1 TO n
    a(i) = FIX(RND * 9 + 1)
NEXT
FOR i = 1 TO n
    s = s + a(i)
    p = p * a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "summa:"; s, "pr:"; p