Найдите объём звукового стерео-файла. по такого типа выведите, , из основной формулы нахождения объёма звукового файла остальные, т.е. как, например, по формуле найти время звукозаписи и т.д.

Для определения времени（в секундах）нужно кол-во информации звукового файла（обьем）разделить на частоту дискретизации, на разрядность, и кол-во каналов（в стерео каналов 2）

Program Pro1;
type Date = record 
day : 1..31; 
mounth : 1..12; 
year : integer; 
end; 
Person = record 
SurnameName : string; 
Birthday : date; 
end; 
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;

//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;

for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;

WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.

1. Записать двоичное число так, чтобы над ним сверху было место.
2. Над каждой двоичной цифрой (нулем или единицей) записать справа налево числа, начиная с единицы, при этом каждая последующая цифра должна равняться удвоенной предыдущей, т.е. цифры будут 1, 2, 4, 8, 16, 32, 64, ...
3. Сложить между собой те написанные числа, под которыми окажутся единицы из двоичной записи числа.
4. Полученная сумма - эквивалент двоичного числа в десятичной системе счисления.

Пример:

64 32 16 8 4 2 1
1    0  1  0 1 1 0
Складываем: 64+16+4+2=86.
1010110(2)=86(10)