randomize;
        readln(n,m);
        for i:= 1 to n do
        begin
            for j:= 1 to m do
            begin
                a[i,j]:=random(5)+1;
                write(a[i,j]:4);
            end;
            writeln;

        end;

        for j:= 1 to m do
        begin
              p:=1;
              for i:= 1 to n do
              begin
                  p:=p*a[i,j];
              end;
              write(p:4);
        end;




        readkey;
end.