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.