Объясните,что делает эта программа (m=3,n=5) FreeBasic

cls

input m

input n

dim a(m,n),b(n)

for i=1 to m

for j=1 to n

a(i,j)=(i+2*j) mod 7

next j

next i

for i=1 to n

b(i)=a(1,i)+a(m,i)

if int(b(i)/3)=b(i)/3 then

for j=1 to m

print a(j,i);

next j

print

end if

next i

sleep

end

В ответе выходит: 2 3 4