Найти сумму S квадратов элементов массива А, значение которых принадлежит интервалу [-10;12] и их количество — QBasic(Бейсик)

INPUT "Vvedite kolichestvo massivov ", N
DIM a(N)
FOR i = 1 TO N
    INPUT "Vvedite element ", a(i)
NEXT
FOR i = 1 TO N
    IF a(i) >= -10 AND a(i) <= 12 THEN k = k + 1: s = s + a(i) ^ 2
NEXT
PRINT "Summa= "; s; " Kolichestvo= "; k