Вводится массив из n чисел. Вычислить их сумму — QBasic(Бейсик)

CLS
Vv: INPUT "Vvedite kol-vo elementov(n): ", n
IF n < 1 THEN PRINT "Vvedite zanovo, n < 1 nedopustimo...": GOTO Vv
DIM M(n), sum
FOR i = 1 TO n
    PRINT "Chislo nomer"; i; ": ";
    INPUT "", M(i)
NEXT
FOR i = 1 TO n
    sum = sum + M(i)
NEXT
PRINT "Summa: "; sum