Второй вариант. Внизу картинка, которая всё подтверждает :)
Var i:integer;
begin
for i:=1 to 10 do
write(random(101)/100,' ');
<span>end.
</span>
Объем дискеты 1457664 = 2847 * 512 байт
Для несжатого звука (в mp3 зависит от битрейта)
а) 1 байт * 8000 = 8000 байт/с (1 байт= 8 бит)
1457664 / 8000 = 182.208 секунд
б) 2 байта * 48000 = 96000 (2 байта = 16 бит, 48 кГц - в этом параметре уже учтено, что звук стерео, на каждый канал по 24 кГц)
1457664 / 96000 = 15.184 секунд
На самом деле чуть меньше, т.к. еще должна быть записана "шапка"файла размером 44 байта, но, вероятно, в задаче это учитывать не надо