var h,m,n,i,j,k,k2,l,sum,max:longint; time:real;
a:array[0..32,0..50,0..50] of longint;
line:array[0..32,0..50,0..50] of longint;
s:array[0..50,0..32,0..32,0..50,0..50] of longint;
begin
readln(h,m,n);
for i:=1 to h do
for j:=1 to m do
begin
for k:=1 to n do
read(a[i,j,k]);
readln;
end;
for i:=1 to n do
for j:=1 to m do
for k:=1 to h do
line[k,j,i]:=line[k-1,j,i]+a[k,j,i];
for l:=1 to n do
for i:=1 to h do
for j:=1 to h+1-i do
for k:=1 to m do
for k2:=1 to m+1-k do
s[l,i,j,k,k2]:=s[l,i,j,k,k2-1]+line[i-1+j,k-1+k2,l]-line[i-1,k-1+k2,l];
for i:=1 to h do
for j:=1 to h+1-i do
for k:=1 to m do
for k2:=1 to m+1-k do
begin
sum:=0;
for l:=1 to n do
begin
sum:=sum+s[l,i,j,k,k2];
if sum>max then max:=sum;
if sum<0 then sum:=0;
end;
end;
write(max);
end.