program PascalGuru;
type cisla=0..1;
 
var A:array [1..50,1..50] of cisla;
    i,j,n:integer;
    b,esti:boolean;
{-------------------------------------------}
begin
write('N= '); readln(n);
 
writeln('Vvedite sam massiv iz "0" i "1":');
for i:=1 to n do
for j:=1 to n do begin write('A[',i,',',j,']='); readln(A[i,j]); end;
 
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:8);  end;
{******************************************}
writeln; writeln;
writeln('Ne soderjat "1": ');
 
esti:=false;
 
for i:=1 to n do
    begin
    b:=true;
    for j:=1 to n do
    if A[i,j]=1 then b:=false;
    if b then begin writeln(i,' stroka'); esti:=true; end;
    end;
 
for j:=1 to n do
    begin
    b:=true;
    for i:=1 to n do
    if A[i,j]=1 then b:=false;
    if b then begin writeln(j,' stolbec'); esti:=true; end;
    end;
 
if not esti then writeln('Ni strok, ni stolbcov takix NET!');
 
 
readln;
end.