var f:boolean;

s:array[1..10000,1..10000]of integer;

p,q,n,x,y,m,a,b,i,j,k,t,ans:longint;

begin

readln(a,b,k);

for i:=1 to a do begin

for j:=1 to b-1 do

begin

read(s[i,j]);

end;

readln(s[i,b]);

end;

m:=1;

f:=true;

while (t<k)and f do

begin

for i:=1 to a do

for j:=1 to b do

if s[i,j]>m then begin m:=s[i,j];p:=i; q:=j; end;

s[p,q]:=0;

t:=abs(a-x)+abs(b-y)+t;

x:=p;

y:=q;

n:=ans;

f:=false;

n:=ans;

ans:=ans+m;

for i:=1 to a do

for j:=1 to b do

if s[i,j]<>0 then f:=true;

end;

writeln(ans);

end.