const
 Nmax=20;    {Максимальная длина массива B}

function Big(Q1,Q2:real): Real; {функция выбора максимального из двух чисел}
begin
 if Q1>Q2 then Big:=Q1 else Big:=Q2;
end;

var  {Ввод переменных}
 A:Array[1..2*Nmax] of real;
 B:Array[1..Nmax] of real;
 i,n:byte;

Begin {Начало программы}
 Write('Число элементов массива B ');
 Readln(n);
 for i:=1 to 2*n do  {Цикл ввода исходного массива}
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
  end;
 Writeln; {Отступ (пустая строка)}
 Writeln('Исходный массив:');
 for i:=1 to 2*n do {Вывод на экран исходного массива}
  Write(A[i]:5:1);
 Writeln; {Отступ (пустая строка)}
 Writeln; {Отступ (пустая строка)}
 for i:=1 to n do {Формирование массива B}
  B[i]:=Big(A[2*i],A[2*i-1]);
 Writeln('Новый массив:');
 for i:=1 to n do {Вывод на экран полученного нового массива}
  Write(B[i]:5:1);
 Readln {Приостановка выполнения программы с показом результата}
end. {Завершение программы}