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

Var a: array[1..10] of real; i,na: integer; max: real; begin repeat           writeln('введите количество элементов массива меньше 11');           readln(na); until (na> 0) and(na< =10); writeln('введите элементы массива,',na,' штук'); for i: =1 to na do       begin       readln(a[i]);       if i=1 then max: =a[i]       else       if (a[i]> max) then max: =a[i];       end; writeln('наибольший элемент массива = ',max); end.

Первая. program one;   var i: byte; a: integer;     begin    a: =1;       for i: =1 to 15 do begin        a: =a+a;       end;       write(a);       end. третья. program three;   var p: real; i: real; a: real;   begin  p: =1;   i: =1/5;     while i< =2+4/5 do begin    p: =p*i;     i: =i+1/5;     write(p, ' ');     end;     write(p);     end. во второй промежуточное не понял, напишите без многоточия.