program dreptunghi;
var a : array[1..3000,1..3000] of byte;  
     i,j,u,n:integer; inp:text;
begin
   Writeln('Introdu N:');
   readln(n); // колво колонок  
   assign(inp, 'inp.txt'); reset(inp); // тут грузим матрицу с тхтэщника
   for i:=1 to n do begin
    for j:=1 to n do read(inp, a[i,j]);
    readln(inp); end;
   for i:=1 to n do begin
    for j:=1 to n do write(a[i,j],' ');
    writeln; end;
   writeln;
    
   for i:=1 to n do  
    for j:=1 to n do
     if a[i,j]=1 then begin
      if (a[i-1,j]) and (a[i,j+1])=0 then u:=u+1;
      end;
     //собственно тут происходит проверка

   for i:=1 to n do begin
    for j:=1 to n do write(a[i,j],' ');
    writeln; end;
   Writeln(u);
   close(inp);
end.

program project1;  
var  
mass:array[1..100,1..100] of byte;  
i,j,n,m,val:byte;  
Check1,Check2:boolean;  
begin  
writeln('razmer massiva N*M');  
writeln('vvedite N');  
readln(n);  
writeln('vvedite M');  
readln(m);  
writeln('vvedite massiv ',n,'*',m);  
for i:=1 to n do  
for j:=1 to m do  
read(mass[i,j]);  
for i:=1 to n do  
for j:=1 to m do  
begin  
   if mass[i,j]=1 then  
   begin  
     Check1:=false;
     Check2:=false;
     if i=n then Check1:=true;  
     if i<n then if mass[i+1,j]=0 then Check1:=true;  
     if j=m then Check2:=true;  
     if j<m then if mass[i,j+1]=0 then Check2:=true;  
     if Check1=true and Check2=true then val:=val+1;  
   end;  
end;  
writeln('Otvet: ',val);  
readln;  
end.

program dreptunghi;
var a : array[1..3000,1..3000] of byte;  
     i,j,u,n,m:integer; inp:text;
begin
   Writeln('Introdu N:');
   readln(n);
   assign(inp, 'inp.txt'); reset(inp);
   for i:=1 to n do begin
    for j:=1 to n do read(inp, a[i,j]);
    readln(inp); end;
   for i:=1 to n do begin
    for j:=1 to n do write(a[i,j],' ');
    writeln; end;
   writeln;

   for i:=1 to n do  
    for j:=1 to n do
     if a[i,j]=1 then begin
      u:=0;
      if (a[i-1,j])=0 then u:=u+1;  
      if (a[i,j+1])=0 then u:=u+1;
      if u=2 then m:=m+1;
     end;
   for i:=1 to n do begin
    for j:=1 to n do write(a[i,j],' ');
    writeln; end;
   Writeln(m);
   close(inp);
end.