var a:array[1..85,1..85] of integer;
    f,g:text;
    s,total,max,sl,sc,i,j,k,l:longint;
    m,n,r,c:integer;
procedure citiresisuma;
begin
read(f,m,n,r,c);
for i:=1 to m do begin
  for j:=1 to n do read(f,a[i,j]);
  readln(f);
  s:=s+a[i,j];
end;
end;

procedure sumamaxima;
begin
max:=0;
for i:=1 to m do begin
  sl:=0; sc:=0;
  for j:=1 to n do sl:=sl+a[i,j];
  for k:=1 to n do begin
    sc:=0;
    for l:=1 to m do sc:=sc+a[l,k];
    total:=sc+sl-a[i,j];
  end;
end;
end;

begin
assign(f,'elimin.in'); reset(f);
assign(g,'elimin.out'); rewrite(g);
citiresisuma;
sumamaxima;
write(g,total);
close(g);
end.