Четыре пассажира берут билеты на один рейс междугороднего автобуса. какое количество информации содержится в сообщении о том, что пассажиры будут сидеть в одном ряду (в автобусе 40 мест, по четыре места в каждом ряду).

Var a: array[1..100000] of integer; i,max,n: integer; begin readln(n); for i: = 1 to n do   read(a[i]); max: =a[1]+a[n]; for i: = 2 to n div 2 do   if max < a[i] + a[n-i] then       max: = a[i] + a[n-i]; writeln(max); end. вроде так