var f,g:text;
t,s:array[0..300,0..300]of integer;
var a:array[1..301] of integer;
m,n,i,j,k,st,dr:integer;
arie_max,suma,x:longint;
function max(a,b:longint):longint;
begin
if a>b then max:=a
else max:=b;
end;
begin
assign(f,'teren.in');
reset(f);
assign(g,'teren.out');
rewrite(g);
readln(f,n,m,x);
for i:=1 to n do
for j:=1 to m do
begin
read(f,t[i,j]);
s[i,j]:=s[i-1,j]+t[i,j];
end;
for i:=1 to n do
 for j:=1 to n do
   begin
     for k:=1 to m do
         a[k]:=s[j,k]-s[i-1,k];
     st:=1;
     suma:=0;
     for dr:=1 to m do
         begin
            suma:=suma+a[dr];
            while(st<=dr) and(suma>x) do
                begin
                suma:=suma-A[st];
                st:=st+1;
                end;
            if st<=dr
               then arie_max:=max(arie_max,((j-i+1)*(dr-st+1)));
            end;
     end;
writeln(g,arie_max);
close(g);
end.