Решить задачу 5,7 с текстового процессора Word (в решении должно быть: условие, таблица и словесное описание!)

Var s,j:integer;
begin
s:=0;
for j:=10 to 15 do s:=s+2*j;
writeln(s);
end.

Результат:
150

1)program wk;
var mas:array [1..5]of integer;i:integer;
begin 
 for i:=1 to 5 do 
  mas[i]:=Random(121)-64; 
for i:=1 to 5 do 
 Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   p:=p*mas[i]; 
  end;
 Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   if (i mod 2 <>0)then p:=p*mas[i]; 
  end;
 Writeln(p)
end.

Размер цифрового моноаудиофайла измеряется по формуле:
     A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
22,05 кГц = 22,05*1000 Гц = 22050 Гц
8 бит = 1 байт
Размер файла = 22050*19*1 байт = 418950 байт

Нужно составить вопросы? И на какую тему?