Оценить информационный объем цифрового стерео звукового файла (в килобайтах) длительностью звучания 1 минута при среднем качестве звука (16 битов, 24 кгц​

Путь к файлу не забудь поменять var   t: text;   st: string;   s, i: integer;   c: char; begin   s : = 0;   st : = '';   assign(t, 'путь к файлу');   reset(t);   while not eof(t) do   begin     read(t, c);     if (ord(c) < > 13) then       st : = st + c     else if trystrtoint(st, i) then     begin       s : = s + i;       st : = '';     end     else       st : = '';   end;   if trystrtoint(st, i) then     s : = s + i;   close(t);   writeln(s); end.

#include

#include

#define _use_math_defines

int main(){

  double a,b,c = 1;

  std: : cout < < "a: "< < std: : endl;

  std: : cin > > a ;

  std: : cout < < "b: "< < std: : endl;

  std: : cin > > b;

  std: : cout < < "c: "< < std: : endl;

  std: : cin > > c;

  double x = 2 * std: : log(a) - 1 / b / c + std: : tan(m_pi * b * c);

  double y = std: : cos(0.387 * a) + std: : sqrt(std: : abs(a + b));

  std: : cout < < "x = " < < x < < "\n" < < "y = "< < y < < std: : endl;

  std: : cin > > a;

  return 0;

}

компилятор mingw