ПЗ1 / z3

//3)	Проводилась одноканальная (моно) звукозапись с частотой дискретизации 16 кГц и 24-битным разрешением. 
//В результате был получен файл размером 3 Мбайт, сжатие данных не производилось. 
//Составьте программу, определяющую время, в течение которого проводилась запись?

const // объявим константы V-размер файла
                        // f - частота дискредитации
                        // B - глубина кодирования
                        // k - количество каналов
                        
V = 25165824; //3*2^23
f = 16000; //2^4*1000
B = 24; //3*2^3
k = 1;

var
 t: real; // объявим переменную искомого значения t - время

begin

t:= V/(f*B*k);

writeln('используя формулу t = V/(f*B*k) получим результат t = ', t, ' секунд'); // вывод результата

end.