Дана квадратная матрица 6х6. Найти количество чисел, меньших 7.5 среди элементов матрицы лежащих выше главной диагонали. Найти столбец , в котором разность среднего арифметического и первого элемента больше величины С. — QBasic(Бейсик)

DIM a(6, 6)
RANDOMIZE TIMER
PRINT "matrica"
FOR i = 1 TO 6
    FOR j = 1 TO 6
        a(i, j) = INT(RND * 20)
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO 6
    FOR j = i + 1 TO 6
        IF a(i, j) < 7.5 THEN kol = kol + 1
    NEXT
NEXT
PRINT "kol-vo chisel<7.5 vyshe gl. diagonali="; kol
INPUT "vvedite chislo C=", c
FOR j = 1 TO 6
    sum = 0
    FOR i = 1 TO 6
        sum = sum + a(i, j)
    NEXT
    IF sum / 6 - a(1, j) > c THEN PRINT "stolbec"; j: f = 1
NEXT
IF f = 0 THEN PRINT "takih stolbcov net"