дан фрагмент программы на языке паскаль
for n:=1 to 3 do
for m:=1 to 3 do b[n,m]:=n*m;
s:=0;
for n:=1 to 3 do
for m:=1 to 3 do

if b[n,m]mod 2=0 then s:=s+1;
Чему будет равно значение s? Необходимо составить программу.