Program h;
  const
      m=5;
       n=4;
       a: array[1..m,1..n] of integer=
             (     
               (3,2,4,6),
               (2,5,3,5),
               (5,7,3,5),
               (4,6,3,2),
               (9,5,2,6)
              );

  Var
     i, j , P, count: integer;
     B: array[1..100] of integer;

Begin

{ Нахождение произведения элементов строк }

     for i:=1 to m do
         P:=1;
            for j:=1 to n do begin
         P:= P * a[i,j];
end;
 
{ Перестановка строк матрицы  по невозрастанию произведений элементво строк }
           
 for i:=1 to m do
      for j:=m  Down to i+1 do
  if a[Pred[j] < a[j] tnen begin
  temp:=a[j-1];
  a[j-1]:=a[j];
  a[j]:= temp;
end;

{ Выполнение 2-го пункта моего задания }
for j := 1 to n do begin

  count := 0;
  for i := 1 to m do
    if (a[i, j] mod 5) = 0 then count := count + 1;

  if count = m     then B[j] := j
      else B[j]:=0;

end;
      writeln('Полученный массив B=');
          for i:=1 to m do
              for j:=1 to n do
                 write( B[j]);
readln;
end.