{* Задача 133 *}

Unit ZADACH133;
Interface
Implementation
Begin
 writeln('Дана таб a[m, n] содерж. числа 0, 1, 5 или 11.Посчитать кол-во четвёрок a[i, j], a[i+1, j], a[i, j+1], a[i+1, j+1] в каждой из которых все эл-ты разные. ');
End.

Program pas13510;

Uses zadach133.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a : Array [1..10, 1..10] Of integer;
  i : longint;
  j : longint;
  m : longint;
  n : longint;
  k : longint;
Begin
  clrscr; {* Очистка экрана *}
  write('кол-во строк=');
  readln(m);
  write('кол-во столбцов=');
  readln(n);
  For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      write('a[', i, ', ', j, ']=');
      readln(a[i, j]);
    End;
  k := 0;
  For i := 1 To m - 1 Do {* Цикл для i => [1 .. m] *}
  Begin
    For j := 1 To n - 1 Do {* Переменная j увеличивается с 1 до n *}
      If a[i, j] + a[i + 1, j] + a[i, j + 1] + a[i + 1, j + 1] = 17 Then
        k := k + 1;
  End;
  write('кол-во четвёрок:', k);
  readln; {* Ждем нажатия Enter *}
End.