Вычислить сумму квадратов элементов массива (2; 1; 0; -1; -2; -3; 10) : дан массив элементов . выполнить и вывести на печать результата нужно код для qbasic по этой

CLS
DATA 2,1,0,-1,-2,-3,10
DIM a(1 TO 7) AS INTEGER
s = 0
FOR i = 1 TO 7
   READ a(i)
   s = s + a(i) ^ 2
NEXT i
PRINT "s="; s
END

Результат выполнения:
s= 119
Замечание
Можно было обойтись без оператора DIM a(1 TO 7) AS INTEGER,
поскольку QBasic позволяет не описывать массивы размером до 10 элементов.