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

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