Дан массив x(n,m) и число z. Определить, сколько раз среди элементов четных строк массива встречается число z с заданным значением.

program p1;uses crt;const N = 5;      M = 3;var x:array [1..N,1..M] of integer;j,i,z,k:integer;beginread(z);for i:=1 to N do begin For j:=1 to M do begin   x[i,j]:= random (5)-2;  write(x[i,j]:4); end;   writeln;  end;      For i:=1 to N do begin     K:=0;     For j:=1 to M do begin      If (x[i,j]>=0) and (x[i,j] = z)then        K:= K+1;         end;         writeln('Кол-во повторений =',k,' в ',i,' строке');         end;         end.