program Number;

var
  a: array[1..10, 1..10] of byte; { поле }
  n, m: byte; { размеры поля }
  count: byte; { количество цветов }
  i, j: byte; { cчетчикb }
  col: byte := 1;{ текущий номер цвета }

{ Раскрашивание клеток, имеющих общую сторону, одним цветом}
procedure Color(ti, tj: integer);
begin
  a[ti, tj] := col; // закрашиваем текущую клетку
  { Если клетка не находится на правой границе поля, 
    смотрим раскрашен ли сосед справа }
  if (tj < m) and (a[ti, tj + 1] = 1) then
  begin
    a[ti, tj + 1] := col; // закрашиваем соседнюю клетку
    Color(ti, tj + 1); // раскрашиваем клетки,соседние с данной
  end;
  { Если клетка не находится на левой границе поля, 
    смотрим раскрашен ли сосед слева }
  if (tj > 1) and (a[ti, tj - 1] = 1) then
  begin
    a[ti, tj - 1] := col; // закрашиваем соседнюю клетку
    Color(ti, tj - 1); // раскрашиваем клетки,соседние с данной
  end;
  { Если клетка не находится на верхней границе поля, 
    смотрим раскрашен ли сосед сверху }
  if (ti < n) and (a[ti + 1, tj] = 1) then
  begin
    a[ti + 1, tj] := col; // закрашиваем соседнюю клетку
    Color(ti + 1, tj); // раскрашиваем клетки,соседние с данной
  end;
  { Если клетка не находится на нижней границе поля, 
    смотрим раскрашен ли сосед снизу }
  if (ti > 1) and (a[ti - 1, tj] = 1) then
  begin
    a[ti - 1, tj] := col; // закрашиваем соседнюю клетку
    Color(ti - 1, tj); // раскрашиваем клетки,соседние с данной
  end;
end;

{Начало программы}
begin
  { Ввод размеров поля }
  read(n, m);
  { Ввод раскрашенных/нераскрашенных клеток поля }
  for i := 1 to n do 
    for j := 1 to m do
      read(a[i, j]);
  writeln;
  { Раскрашивание клеток поля }
  for i := 1 to n do 
    for j := 1 to m do
      if a[i, j] = 1 then // если клетка должна быть раскрашена
      begin
        col := col + 1; // увеличиваем текущий номер цвета на один
        Color(i, j);    // раскрашиваем соседние
      end;
  count := col - 1; // вычисляем наибольшее количество цветов
  { Вывод результата }
  writeln(count);
end.