program teren_ok;
uses crt;
label 1;
var t:array[1..10,1..10] of 0..1;
y:array[1..4,1..4] of integer;
a,b,i,j,k,l,m,n,imax,jmax,kmax,lmax:integer;
x,s,amax:longint;
f:text; ok:boolean;
begin
assign(f,'d1.pas');
reset(f);
readln(f,x);
readln(f,n);
readln(f,m);
for i:=1 to n do
for j:=1 to m do
read(f,t[i,j]);
close(f);
assign(f,'d2.pas');
rewrite(f);
ok:=true;
for i:=1 to n-1 do
for j:=1 to m-1 do
begin
s:=0;
for k:=i+1 to n do
for l:=j+1 to m do

for a:=i to k do
for b:=j to l do
begin
s:=s+t[a,b];
if s>x then
begin ok:=false; goto 1;end
             else if s=x then
              begin
              amax:=(k-i+1)*(l-j+1);
              imax:=i;jmax:=j;kmax:=k;lmax:=l;
              end;
end;
1:
end;
if not ok then
begin
writeln(f,'Aria maxima=',amax);
for i:=imax to kmax do
begin
for j:=jmax to lmax do
write(f,t[i,j],' ');
writeln(f);
end;
end
else
begin
writeln(f,'Aria maxima=',m*n);
for i:=1 to n do
begin
for j:=1 to m do
write(f,t[i,j],' ');
writeln(f);
end;
end ;

close(f);
end.