{* Задача 154 *}

Unit ZADACH154;
Interface
Implementation
Begin
 writeln('Слить массивы А и В по 100 элементов в массив С из 200 элементов так, чтобы элементы массива А имели в С нечётные номера ');
End.

Program pas13562;

Uses zadach154.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i  : longint;
  j  : longint;
  k  : longint;
  aa : longint;
  bb : longint;
  d  : longint;
  a  : Array[1..100] Of longint;
  b  : Array[1..100] Of longint;
  c  : Array[1..200] Of longint;
Begin
  clrscr; {* Очистка экрана *}
  textcolor(11); {write('диапазон: ');
  readln(d);
  }
  For i := 1 To 100 Do {* Цикл для i => [1 .. 100] *}
  Begin
    a[i] := 1; {random(d);
    }
    b[i] := 2; {random(d);
    }
  End;
  For i := 1 To 200 Do {* Увеличиваем i от 1 до 200 с шагом 1 *}
    If i Mod 2 = 0 Then
    Begin
      inc(bb); {* bb++ *}
      c[i] := b[bb];
    End;
    Else Begin
      inc(aa); {* aa++ *}
  c[i] := a[aa];
End;
For i := 1 To 200 Do {* Переменная i увеличивается с 1 до 200 *}
  write(c[i], ' ');
readln; {* Приостановка программы. Ожидание Enter *}
End....