var
  i, j, m, n, n1, n0: integer;
  mat: array[1..1000,1..1000] of byte;
  
begin
  write('Введите m и n: ');
  readln(m,n);
  
  for i := 1 to m do
    for j := 1 to n do
      begin
        write('Введите элемент ',i,' ',j,': ');
        readln(mat[i,j]);
        
        if mat[i,j] = 0 then n0 := n0 + 1
          else n1 := n1 + 1;
      end;
      
  writeln('Количество нулей в матрице: ',n0);
  writeln('Количество единиц в матрице: ',n1);
    
end.