Сосчитать сумму нечётных чисел в таблице A(n,m) — QBasic(Бейсик)

INPUT N
INPUT M
DIM A(N, M)
FOR I = 0 TO N
    FOR J = 1 TO M
        INPUT A(I, J)
    NEXT
NEXT
FOR I = 1 TO N
    FOR J = 1 TO M
        IF A(I, J) MOD 2 <> 0 THEN S = S + A(I, J)
    NEXT
NEXT
PRINT "S="; S
END