program p8150;
const
nmax=10;
Type TArr = Array [1..Nmax,1..Nmax] Of Integer;
Var A : TArr;
i, j, n, m : Integer;
count : integer;
Begin
writeln('vvedite n ');
read(n);
writeln('vvdite matr');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
count := 0;
For i := 1 To n-1 Do
For j := 1 To m-1 Do
If A[i, j] + A[i+1, j+1] + A[i+1, j] +
A[i, j+1] = 17 Then
Inc(count);
WriteLn ('Differnt squares: ', count);
End.