花生采摘

var

 num,h,s:array[1..1000]of longint;

 i,j,n,t,m,k,sum,ans,x,y:longint;

begin

 read(n,m,k);

 for i:=1 to n do

  for j:=1 to m do

 begin

  read(x);

  if x<>0 then

   begin

    inc(sum);

    num[sum]:=x;

    h[sum]:=i;

    s[sum]:=j;

   end;

  end;

 for i:=1 to sum-1 do

  for j:=i+1 to sum do

  if num[i]<num[j] then

  begin

   t:=num[i]; num[i]:=num[j]; num[j]:=t;

   t:=h[i]; h[i]:=h[j]; h[j]:=t;

   t:=s[i]; s[i]:=s[j]; s[j]:=t;

  end;

 x:=0; y:=s[1];

 for i:=1 to sum do

  if k-(abs(h[i]-x)+abs(s[i]-y))-h[i]>0 then

  begin

   ans:=ans+num[i];

   k:=k-(abs(h[i]-x)+abs(s[i]-y));

   dec(k);

   x:=h[i]; y:=s[i];

  end

  else break;

  write(ans);

end.