program mn;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,n,z,m,f,od:integer;
label 1;
procedure udst;
var k,l:integer;
begin
for k:=i to n-1 do
for l:=1 to m do
a[k,l]:=a[k+1,l];
if n>0
then dec(n);
i:=1;f:=0;
end;
procedure udsb;
var k,l:integer;
begin
for k:=1 to n do
for l:=j to m-1 do
a[l,k]:=a[l+1,k];
if m>0
then dec(m);
i:=1;f:=0;
end;
BEGIN
ClrScr;
Write('N:');readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(2);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
m:=n;
While f<>1 do
begin
f:=1;
for i:=1 to n do
begin
od:=0;
for j:=1 to m do
if a[i,j]=1
then inc(od);
if od=1
then udst;
if n=0
then goto 1;
end;
for i:=1 to n do
begin
od:=0;
for j:=1 to m do
if a[j,i]=1
then inc(od);
if od=1
then udsb;
if m=0
then goto 1;
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:3);
writeln;
end;
1:if (n=0)or(m=0)
then writeln('Massiv ves udalen');
readln;
END.