var m,n;

 readln(n,m);

var
    a: array[1..m,1..n] of byte;
    s: array[1..n] of byte;
    i,j, sum: byte;

begin
    randomize;

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


    for j := 1 to n do begin
        for i := 1 to m do begin
            s[j] := s[j] + a[i,j];
            sum := sum + a[i,j]
        end;
        write (s[j]:3)
    end;