Производится двухканальная (стерео) звукозапись с частотой дискретизации 16 кгц и количеством уровней квантования 65536. запись длится 4 минуты, ее результаты записываются в файл, сжатие данных не производится. нужно найти размер полученного файла. мне нужно обьяснение решения !

Формула нахождения объема закодированного звука a = d * i * t * c (d - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов) приводим единицы измерения d = 16 кгц = 16000 гц t = 240 c a = d * i * t * c = 16000 * 16.0 * 240 * 2 = 122880000.0 бит = 15000.0 kбайт = 14.6484375 мбайт

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.