var a: array[1 .. 16] of real;
i: integer;
max: real;
Begin
 for i := 1 to 16 do
 begin
   write('a[', i, '] ='); readln(a[i]);
 end;
 max: = -maxInt;
 for i := 1 to 8 do
   if max < (a[i] + a[17-i]) then max := a[i] + a[17-i];
 writeln('максимум = ', max)
End.

const n = 30;
var price: array[1 .. n] of real;
min_ix, last_ix, i: integer;
begin
 for i := 1 to n do
 begin
  write('a[', i, '] ='); readln(a[i]);
 end;

 min_ix := 1; last_ix := 1;
 for i := 2 to n do
 begin
   if price[min_ix] > price[i] then
   begin
     min_ix := i; last_ix := i;
   end
   else if price[min_ix] = price[i] then last_ix := i;
 end;

 writeln('минимальная цена =', price[min_ix], ' индекс = 'min_ix);
 if last_ix <> min_ix then
   writeln( 'последний индекс =', last_ix )
end.