const       
NN=7;
MM=15;
var
a:array[1..NN,1..MM] of integer;
nenol,sum:array[1..MM] of integer;
i,j,n,m:integer;
mp:longint;
BEGIN
randomize; //если пишите в паскальАБЦ можно убрать эту строку.
n:=NN;   //m - строки.
m:=MM; //не стану делать ввод сами придумаете.

for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10); //заполняем матрицу числами 0-9

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

for j:=1 to m do begin
       mp:=1;
       for i:=1 to n do begin
        if(a[i,j]<>0) then begin       
         inc(sum[j],a[i,j]);
         inc(nenol[j]);
        end;
        mp:=mp*a[i,j];
       end;
       writeln('stroka ',j:2,': Proizvedenie = ',mp:8,', koli4estvo ne nyley = ',nenol[j],', ix summa = ',sum[j]:3);
end;

END.