Каков информационный объем в килобайтах моноаудиофайла длительностью 16с при глубине звука 8 битов и 8000 измерентях в секунду, т.е. при частоте 8 кгц?

Звук записывается 8бит = 1 Байт
Всего было измерений: 16*8000=128000
Количество всей информации: 128000*1 = 128000 Байт = 125 кБайт 

1 Задача
1) Начало
2) i = 1
2.1) K = i^2
2.2) Вывод K
2.3) i = i + 1
2.4) i > 5 ?
Если Да, возвращаемся на 2.1)
Если Нет, окончание цикла.
3) Конец.

2 Задача
1) Начало
2) k = 0 (счетчик нечетных чисел)
3) Ввод первого числа A1
3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число)
4) Ввод второго числа A2
4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число)
5) Ввод третьего числа A3
5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число)
6) Вывод k
7) Конец

3 Задача
1) Начало
2) Объявление массива А() пока неизвестного размера (динамического)
3) i = 1
3.1) Ввод очередного числа A(i)
3.2) Если A(i) = 0, то переход на 4)
3.3) i = i + 1
3.4) Возврат на 3.1)
4) Переопределение динамического массива A(i) размером i элементов.
5) Конец

Var
a:array[1..10] of integer;
cnt1, cnt2, i:integer;
begin
 For i:= 1 to 10 do
   Read(a[i]);
 for i:= 1 to 5 do
  if a[i] > 0 then cnt1 := cnt1 + 1;
 for i:= 6 to 10 do
  if a[i] > 0 then cnt2 := cnt2 + 1;
 if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково');
 if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине');
 if cnt1 < cnt2 then  Writeln('Количество пол-х элементов больше во второй половине');
end.

Пример:

-1 -2 3 5 0 4 6 7 -2 -5
Количество пол-х элементов больше во второй половине