В двумерном массиве вычислить произведение элементов с чётными числами — QBasic(Бейсик)

INPUT"vvedite kolichestvo strok M ",m
INPUT"vvedite kolichestvo stolbcov N ",n
DIM b(m,n)
FOR i=1 TO m
FOR j=1 TO n
INPUT "vvedite element ",b(i,j)
NEXT
NEXT
PRINT "matrica "
FOR i=1 TO m
FOR j=1 TO n
PRINT b(i,j);
NEXT
PRINT
NEXT
p=1
for i=1 to m
for j=1 to m
if i mod 2=0 and j mod 2=0 then p=p*a(i,j)
next
next
print p