{* Задача 534 *}

Unit ZADACH534;
Interface
Implementation
Begin
 writeln('На клеточном листе бумаги размером M/N расположены прямоугольники. Задан массив M/N в котором элемент a[i,j]=1 если клетка листа (i,j) яв-ся частью прямоугольника, и a[i,j]=0 если это пустая клетка. Напечатать число прямоугольников. ');
End.

Program zadach534;
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  i : longint;
  j : longint;
  m : longint;
  n : longint;
  k : longint;
  a : Array[1..100, 1..100]Of integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('m=');
  readln(m);
  write('n=');
  readln(n);
  For j := 1 To n Do {* Цикл для j => [1 .. n] *}
    For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    Begin
      write('a[', i, ', ', j, ']=');
      readln(a[i, j]);
    End;
  For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
      If a[i, j] = 1 Then
        If (a[i + 1, j] = 0)And(a[i + 1, j + 1] = 0)And(a[i, j + 1] = 0) Then
          inc(k); {* k++ *}
  write('Ответ: ', k);
  readln; {* Ждем нажатия Enter *}
End.