У логическое выражение
С объяснением первой скобки

PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Результат:', (a.Max + a.Min) / 2)

end.

Turbo Pascal

program abcd;

uses Crt;

const

 nn = 100;

var

 i, n, max, min: integer;

 a: array[1..nn] of integer;

 

begin

 ClrScr;

 Write('n = ');

 Readln(n);

 Randomize;

 max := -32768;

 min := 32767;

 for i := 1 to n do

 begin

   a[i] := Random(199) - 99;

   Write(a[i], ' ');

   if a[i] > max then

     max := a[i]

   else if a[i] < min then

     min := a[i]

 end;

 Writeln;

 Writeln('Результат: ', (max + min) / 2);

 ReadKey

end.

Предположим, что первый свидетель соврал, что автобус - первый, и сказал правду, что маршрутка - вторая.
 Тогда для третьего свидетеля - утверждение про автобус - ложь (так как вторым выехала маршрутка), значит третьим выехал легковой автомобиль.
Тогда оба утверждения второго свидетеля являются ложью (у него легковой автомобиль - четвёртый на перекрестке, грузовик - второй, в у нас получилось легковой автомобиль - третий, в маршрутка - вторая).
Получили противоречие. Значит, первый свидетель сказал правду, что автобус первый и соврал про маршрутку.
Тогда из утверждений третьего свидетеля следует, что легковой автомобиль - третий.
Из второго свидетеля следует, что грузовик - второй.
Тогда маршрутке остаётся четвёртое место.
ответ: АГЛМ