в течение 2 минут производилась запись звука в компьютер при частоте дискретизации 22,050 кГц и зарядности квантования 8 бит. Определить информационый объем получившегося файла​

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

хвалебный                                                                     

заливаем 2 раза по 5л в 9л ведро осталось 1л.переливаем 1л в 9л ведро+5литров=6л,доливаем с 5л ведра 3л, осталось в 5 л ведре 2лпереливаем в9л ведро 2л+5л доливаем=7л  ещё добавляем с 5л ведра 2л  осталось в 5 литровом ведре 3 литра

var a,p: real;

i,n: integer;

begin

  read(a,n);

  p: =1;

  for i: = 0 to n-1 do

    p: =p*(a+i);

  writeln(p);

end.