В двумерном числовом массиве из трех строк и четырёх столбцов найти сумму элементов четных строк массива- Basic(Бейсик)

DIM a(3, 4), s(3)
FOR i = 1 TO 3
FOR j = 1 TO 4
INPUT "vvedite ocherednoy element ", a(i, j)
NEXT
NEXT
FOR i = 1 TO 3
FOR j = 1 TO 4
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
FOR i = 1 TO 3
FOR j = 1 TO 4
IF i MOD 2 = 0 THEN s(i) = s(i) + a(i, j)
NEXT
NEXT
FOR i = 1 TO 3
IF i MOD 2 = 0 THEN PRINT s(i)
NEXT