Заполнить массив Y нарастающими произведениями элементов массива Х- QBasic(Бейсик)

3 2 3 1 2 2 Х
3 6 18 18 36 72 Y

INPUT "vvedite kol-vo chisel ", n
RANDOMIZE TIMER
DIM x(n), y(n)
FOR i = 1 TO n
    x(i) = INT(RND * 5) + 1
NEXT
PRINT "massiv x"
FOR i = 1 TO n
    PRINT x(i);
NEXT
y(0) = 1
FOR i = 1 TO n
    y(i) = y(i - 1) * x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO n
    PRINT y(i);
NEXT