program PascalGuru;
var A:array[1..50,1..50] of integer; {объявление переменных}
    n,m,i,j,k,summa:integer;
 
 
begin
randomize;
write('N= '); readln(n);  {ввод кол-ва строк}
write('M= '); readln(m);  {ввод кол-ва столбцов}
 
for i:=1 to n do
for j:=1 to m do  A[i,j]:=(-3)+random(9); {заполнение элементов матрицы}
 
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:8);  end; { вывод матрицы на экран }
 
writeln;
writeln;
 
summa:=0; {изначально обнуляем сумму}
for i := 1 to n do {i это порядковый номер строки }
    begin
    k:=1; {k - это будущий максимальный эл-т}
          for j := 2 to m do
          if A[i,j]>A[i,k] then A[i,k]:=A[i,j]; {вычисляем MAX}
 
    summa:=summa+A[i,k]; {MAX эл-т текущей строки прибавляем к сумме }
    end;
 
writeln('Summa: ',summa);  {вывод суммы на экран}
 
readln;
end.