Не совсем чётко сформулировано задание. Но попробую хоть в чём-то хотя можно ответить только на вопрос типа "Сравнить размеры этих файлов".
Во втором файле по сравнению с первым
стерео *2
16 бит *2
48000 *6 (после * указываю во сколько раз больше, чем в 1 случае)
Таким образом, объём второго файла будет в 2*2*6=24раза больше, чем первого.
Ну где-то так...
Да, примерный объём первого файла за 10сек оценивается просто
10*1*8000=80 000 байт = 78Кбайт
Ну а второго
80000*24=1920000байт = 1875Кб=1.8М
S,S0,P:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
S0:=0;
P:=1;
For N:= 1 to N do
Begin
S0:=S0+2*N;
P:=P*2*N;
S:=S+S0/P
End;
WriteLn('S = ',S);
End.