---

var
  A: array[1..10] of real; { Массив на 10 элементов (2n, где n=5) }
  i, n: integer;
begin
  n := 5; { Половина нашего массива }
  
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    write('a[', i, '] = ');
    readln(A[i]); { Заполняем весь шкафчик числами }
  end;
  
  writeln('--------------------------------');
  writeln('Результат перетасовки:');
  
  { Цикл идет только до середины (до n) }
  for i := 1 to n do
  begin
    { Выводим элемент из первой половины и соответствующий ему из второй }
    write(A[i]:0:2, ', ', A[i + n]:0:2, ', ');
  end;
  
  readln;
end.