Задание 2. Производилась стереозвукозапись с частотой дискретизации 48кГц и 24 битным разрешением. Запись длится 36 секунд, ее результаты записываются в файл, сжатие данных не производилось. Определить информационный объем аудиофайла в Мб. В ответе указать только число, округлив по правилам математики класс

Var a,p,n,i:integer;
begin
 p := 0;
 n := 0;
 for i := 1 to 15 do
  begin
  read(a);
  if a mod 3 = 0 then
    if a > 0 then p := p + 1
    else
    if a < 0 then n := n + 1
  end;
  if p > n then writeln('Положительных') else
  if p < n then writeln('Отрицательных') else
    writeln('Одинаково')
end.

{вариант "как-то посложнее"}

var a,i,s:integer;
begin
 s := 0;
 for i := 1 to 15 do
  begin
  read(a);
  s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))
  end;
 if s > 0 then writeln('Положительных') else
 if s < 0 then writeln('Отрицательных') else
 writeln('Одинаково')
end.   

Program dlksjijh;
var
  A: array[1..40] of integer;
  i: integer;
begin
  randomize;
  writeln('исходные данные:');
  for i := 1 to 40 do
  begin
    A[i] := Random(21);
    write(A[i], ' ');
  end;
  writeln;
  writeln('преобрезованный массив:');
  for i := 1 to 40 do
  begin
    if A[i] mod 2 = 0 then
      A[i] := Round(A[i]/2)
    else
      A[i] := A[i] * 3;
    write(A[i], ' ');
  end;
end.

Имена математических операций - с прописной буквы, и, поскольку есть  Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.

У меня работает.