{* Задача 173 *}

Unit ZADACH173;
Interface
Implementation
Begin
 writeln('Записать подряд в массив A(N) элементы заданного массива B(2N), стоящие на четных местах, а элементы, стоящие на нечетных местах, записать в массив C(N).');
End.

Program Simple_2_15;

Uses zadach173.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключение модулей *}
Const {* Постоянные значения *}
  N = 5;
Type {* Создание новых типов данных *}
  Array2N = Array [1..2 * N] Of Integer;
  ArrayN = Array [1..N] Of Integer;
Var {* В работе нам потребуются переменные: *}
  X  : Array2N;
  Y  : ArrayN;
  Y1 : ArrayN;
  i  : Integer;
  j  : Integer;
  k  : Integer;
  Begin
  Clrscr; {* Очистка экрана *}
  Randomize;
For i := 1 To 2 * N Do {* Переменная i увеличивается с 1 до 2 *}
  Begin
X[i] := - 1000 + Random(2000);
Write(X[i], ' ');
End;
Writeln('');
i := 1;
j := 1;
k := 1;
While (i....