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

CLSDATA 2,1,0,-1,-2,-3,10DIM a(1 TO 7) AS INTEGERs = 0FOR i = 1 TO 7   READ a(i)   s = s + a(i) ^ 2NEXT iPRINT "s="; sENDРезультат выполнения:s= 119ЗамечаниеМожно было обойтись без оператора DIM a(1 TO 7) AS INTEGER,поскольку QBasic позволяет не описывать массивы размером до 10 элементов.