Program Neprogram;
Var mas:array[1..3,1..6] of real;
    i,m,n,kolvo:integer;
    shar,v,r:real;
Begin
// Задаем рандомно матрицу[m,n] с элементами [1,10] //
   randomize;
     for m:=1 to 3 do
         for n:=1 to 6 do
            mas[m,n]:=trunc((11-1)*random+1);
// Отображаем получившуюся матрицу  //
   writeln('Ispolzuemaia matrica:');
     for m:=1 to 3 do
       begin
          writeln('  ');
             for n:=1 to 6 do
                begin
                   write(mas[m,n]);
                   write('   ');
                end;
       end;
   writeln;
   writeln;
// Считаем объем шара с заданным радиусом  //
   write('Vvedte R shara: ');
      repeat
         readln(r);
      until r>0;
   shar:=4*3.14*r*r*r/3;
   writeln;
   writeln('Obiem shara = ',shar);
   writeln;
//проверяем произведение столбцов //
      for n:=1 to 6 do
         begin
            v:=1;
               for m:=1  to 3 do
                   v:=v*mas[m,n];
               if v>shar then
                  begin
                     write('Stolbec ',n,' ');
                     kolvo:=kolvo+1;
                  end;
         end;
   writeln;
   writeln;
   writeln('Kolichestvo stolbcov: ',kolvo);
End.

Ispolzuemaia matrica:

  
2   3   4   9   8   3     
1   5   8   4   10   5     
1   6   2   2   9   5   

Vvedte R shara: 3

Obiem shara = 113.04

Stolbec 5 

Kolichestvo stolbcov: 1