дана целочисленная матрица размера mxm. определить числа b1,b2,...bm,каждое из которых равно количеству четных элементов

BEGIN
print(("Entajpu la grandeco de la matrico",new line));
INT m=read int;
[1:m,1:m] INT a; [1:m] INT b;
print(("matrico",new line));
FOR k FROM 1 TO m DO
b[k]:=0;
FOR l FROM 1 TO m DO
a[k,l]:=25-ENTIER(51*next random);
printf(($8z-d$,a[k,l]))
OD; print(new line) OD;
FOR k FROM 1 TO m DO
FOR l FROM 1 TO m DO
b[k]+:=1-ABS(a[k,l]) MOD 2
OD OD;
print(("vektoro B",new line));
FOR k FROM 1 TO m DO printf(($5zd$,b[k])) OD;
print(new line)
END

10 input"Entajpu la grandeco de la matrico",m
20 dim a(m,m),b(m)
30 print"matrico"
40 for k=1 to m
50 for l=1 to m
60 let a(k,l)=25-int(51*rnd(1))
70 print a(k,l);spc(3);
80 next l:print:let b(k)=0:next k
90 for k=1 to m: for l=1 to m
100 let b(k)=b(k)+abs(a(k,l))-2*int(abs(a(k,l))/2)
110 next l:next k
120 print "vektoro B"
130 for k=1 to m:print b(k);spc(2);:next k
140 stop