{
TASK:apple
LANG:Pascal
}

var

m,n,i,j,max,min,s,a:integer;
begin

read(n,m);
for i:=1 to n do
 for j:=1 to m do
 begin

 read(a);
 if a>max then max:=a;
 if a<min then min:=a;

 s:=s+a;

 end;

 if s=9 then writeln(8)
 else
 writeln(s-max);



end.