Укажите запрос, который является отрицанием следующего запроса к базе данных «видеопроекторы»

марка = ” acer” и ( марка < > ” panasonic” или световой поток< 2600)

ответы:
1). марка = ” acer ” и марка < > ”panasonic” или световой поток > = 2600
2). марка < > ” acer ” и марка < > ”panasonic” и световой поток > = 2600
3). марка < > ” acer ” или марка = ”panasonic” и световой поток > =2600
4). марка < > ” acer ” и марка = ” panasonic” или световой поток > = 2600
5). (марка < > ” acer ” или марка < > ”panasonic”) и световой поток > = 2600

Для простоты обьяснения выберем тройку кораблей которая будет заходить в ответвление. Пускай это будет  "Обь", "Восток" и "Петропавловск" -  далее А1, А2, А3

Вторая група кораблей будет только ездить туда сюда "Мир", "Енисей" и "Россия" - далее группа В
0) Если надо, корабли группы В задним ходом возвращаются на места, чтоб дать кораблю из группы А заплыть в ответвление 
1) Корабль А1 заходит в ответвление
2) Корабли группы В плывут вперед, так чтоб зайти за ответвление и выпустить корабль оттуда
3) Корабль А1 выплывает из ответвления и уплывает 

Шаги 0-3 повторяются для всех кораблей группы А

4) Корабли групы В проплывают дальше по освободившемуся каналу

Uses
  Crt;
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n);
  Write('Для завершения работы программы нажмите Enter');
  Readkey
end.

Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter

Для версии Pascal.ABC.Net:
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.