Составить программу веера из 10 лепестков, смотрящие вверх​

Для начала посчитаем, сколько бит информации было передано:
2 минуты и 45 секунд = 165 секунд
165 с * 128000 бит/с = 21120000 бит

Теперь вспомним, что такое частота дискретизация и уровни квантования. Дело в том, что аудио сигнал - это такая прикольная сложная синусоида. Чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). Для каждого из этих промежутков записывается что-то вроде среднего значения высоты. Количество возможных значений - количество уровней квантования.
Но это так - если говорить очень упрощённо. Подробнее прочитайте в своём учебнике информатики.

Итак - у нас 256 уровней квантования. Значит каждое из значений можно записать 8 битами.
И на секунду у нас приходится 22000 таких записей.
То есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами.

21120000 / 176000 = 120 секунд.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.