Массив а вводится с клавиатуры. найдите сумму его элементов. размер произвольный

Язык BASIC
DIM SUM AS INTEGER
CONST N = 30
DIM A(1 TO N) AS INTEGER
FOR I = 1 TO N
SUM = SUM + A(I)
NEXT I
PRINT SUM
END