напишите программку для кубэйсика. Итоги сдачи сессии из четырёх предметов

Создаем матрицу, оценки вводятся с клавиатуры и считается количество оценок, которые lt;=2 в каждой строке. Заключительный столбец показывает количество неуд. по каждому предмету. в каждой строке 6 студентов, в конце каждой строчки количество неуд по этому предмету

DIM a(4,6)
PRINT "input ocenki"
FOR i = 1 TO 4
FOR j = 1 TO 6
INPUT a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
k = 0
FOR j = 1 TO 6
PRINT a(i, j);
IF a(i, j) lt;= 2 THEN k = k + 1
NEXT j
PRINT k
NEXT i