var i, n, m, max: integer;
C: array [1..20] of integer;
B: array [1..10] of integer;
begin
  n := 20;
  m := 10;
  for i := 1 to n do
  read (C[i]);
  for i := 1 to m do
  B[i] := C[i] + C[n - (i - 1)];
  max :=  C[1];
  for i := 2 to m do
  if B[i] > max then max := B[i];
  write('Массив B: ');
  for i := 1 to m do
  write (B[i], ' ');
  writeln;
  write('Наибольший элемент в массиве B: ', max);
end.