Рассчитать время звучания моноаудиофайла если при 16-битном кодировании и частоте дискретизации 32 кгц и его объем равен 700 кбайт

V=r*t*n v- объем аудиофайла r-кодирование n- частота дискретизации t-время звучания 700кбайт=700000байт 32кгц=32000гц t=v: (r*n)=700000: (16*32000)=1.37  секунд

Через while: var a,b,c,p,i: integer; begini: =0; a: =5; b: =7; c: =9; p: =a+b+c; while (p< =100) do    begin    i: =i+1;     a: =a+2;     b: =b+1;     c: =c+1;     p: =a+b+c;     end; writeln('это будет ',i,'-й по счету треугольник'); end. через repeat: var a,b,c,p,i: integer; begini: =0; a: =5; b: =7; c: =9; p: =a+b+c; while (p< =100) do    begin    i: =i+1;     a: =a+2;     b: =b+1;     c: =c+1;     p: =a+b+c;     end; writeln('это будет ',i,'-й по счету треугольник'); end.

Var      a: array [1..100] of integer;       i,n: integer; // количество элементов в массиве  begin      writeln('введите количество элементов в массиве: ');       readln(n);       write('введите элементы массива: ');       for i: =1 to n do        read(a[i]);       write('вывод элементов массива: ');       for i: =1 to n do      write(a[i],' '); end.