Определить объем памяти для хранения стереоаудиофайла, время звучания которого составляет 4 минуты при частоте дискретизации 44, 1 кгц и глубине кодирования 16 бит

2*44100гц*2байт*240сек=42 336 000байт=41 344килобайт=40мб

Ну смотри... Допустим мы берем Артёма. Мы знаем, что каждый из свидетелей дал только 1 правильное указание. Допустим Артем сказал, что машина не черная, и допустим это правильно. Выходит, раз это правильно (то, что машина не черная), то Глеб ошибся с первым показателем (цветом), но был прав со вторым (марка Рино). Следовательно, мы уже точно установили марку машины, разбираемся с цветом. Поскольку Владимир говорит, что машина Тойота, но мы то уже установили, что марка Рино, следовательно он правильно указал цвет. 
Из всего этого следует, что ответ: машина "Renault", серого цвета.  

Var
  A: array [1..255] of integer;
  N, i, j, k, min, max: integer;
begin
  //Ввод количества элементов в массиве
  write('Введите четное количество элементов: ');
  readln(N);
 
  //Ввод двух чисел для диапазона случайных чисел
  write('Введите диапазон случайных чисел: ');
  readln(min, max);
 
  //Инициализация датчика случайных чисел.
  //(в PascalABC.NET необязательно)
  randomize;
 
  //Заполнение массива
  for i := 1 to N do
  begin
    A[i] := random(max-min+1)+min;
    write(A[i]:4);
  end;
  writeln;
 
  //Сортировка первой половины по убыванию
  for i := 1 to ((N div 2)-1) do
    for j := 1 to (N div 2)-i do
      if A[j] > A[j+1] then
      begin
        k := A[j];
        A[j] := A[j+1];
        A[j+1] := k;
       end;
       
  //Сортировка второй половины по убыванию
  for i:=(N div 2) to N-1 do
    for j:=i+1 to N do
      if A[i]<A[j] then
      begin
        k:=a[i];
        A[i]:=A[j];
        A[j]:=k;
      end;

  //Вывод массива
  for i := 1 to N do write(A[i]:4);
  writeln;
  readln;
end.