type ta = array[1..1000] of Integer;

procedure delete(var a: ta; var n: integer; k: integer);
var i: integer;
begin
  for i:= k to n-1 do
    a[i]:=a[i+1];
  n:=n-1;
end;

procedure insert(var a: ta; var n: integer; k, x: integer);
var i: integer;
begin
  for i:= n + 1 downto k + 1 do
    a[i]:=a[i -1];
  n:=n + 1;
  a[k] := x;
end;

procedure swap(var a, b: integer);
var t : integer;
begin
  t := a;
  a := b;
  b := t;
end;


var i, j, m, n, x, y, s, v: integer;
b : ta;
a: array[1..100, 1..100] of integer;
var sum1:integer;
begin
  // n количество строк
  // m количество столбцов

  readln(n, m);
  for i := 1 to n do
    for j := 1 to m do
      read(a[i, j]);

  // Сумма каждой строки двумерного массива
  for i := 1 to n do begin
    s := 0;
    for j := 1 to m do begin
      s := s + a[i, j];
    end;
    writeln(s);
  end;

  // Сумма каждого столбца двумерного массива
   for j:=1 to m do begin
     v:=0;
     for i:=1 to n do begin
        v:= v + a[i ,j];
    end;
   end;

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


{
  x := 2;
  y := 3;
  // обмен значениями столбцов x y
  for i := 1 to n do begin
    swap(a[i, x], a[i, y]);
  end;
  // обмен значениями строк x y
  for i := 1 to m begin
    swap(a[x, i], a[y, i]);
  end;
  }