Вычислить квадратный корень из суммы квадратов элемента массива- Basic(Бейсик)

INPUT "кол знач. мас.", a
DIM aa(a)
FOR i = 1 TO a
INPUT aa(i)
ss = aa(s) * aa(s) + ss
NEXT s
PRINT SQR(ss)