Дан массив из 40 элементов.Найти сумму и количество элементов,удовлетворяющих условию|Yi|<2- QBasic(Бейсик)

DIM y(40)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO 40
    y(i) = INT(RND * 20) - 10
    PRINT y(i);
NEXT
PRINT
FOR i = 1 TO 40
    IF ABS(y(i)) < 2 THEN k = k + 1: s = s + y(i)
NEXT
PRINT "kol-vo chisel="; k
PRINT "summa="; s