program PascalGuru;
var A:array[1..50,1..50] of integer;
n,m,i,j,k,summa:integer;

begin
write('M= '); readln(m);
write('N= '); readln(n);

for i:=1 to m do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;

for i:=1 to m do begin writeln;
for j:=1 to n do write (A[i,j]:8); end;

writeln;
writeln;

summa:=0;
for i := 1 to m do
begin
k:=1;
for j := 2 to n do
if A[i,j]>A[i,k] then A[i,k]:=A[i,j];

summa:=summa+A[i,k];
end;

writeln('Summa: ',summa);

readln;
end.