{* Вывод массива на экран *}

Unit PROGRAM_MB;
Interface
Implementation
Begin
 writeln('Создание массив А[1..15], заполненного случайными числами от-15 до 30. Задано число X. Вывод слева от числа X всех элементов числового массива меньшие этого числа, а справа - большие его. ');
End.

Program mb;

Uses program_mb.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  A : Array[1..15] Of integer;
  X : integer;
  i : integer;
Begin
  X := 10;
  Randomize;
  For i := 1 To 15 Do {* Переменная i увеличивается с 1 до 15 *}
  Begin
    A[i] := Random(46) - 15;
    If A[i] < X Then
      write(A[i], ' '); {выводим элементы, меньшие Х}
  End;
  Write(X, ' '); {сам Х}
  For i := 1 To 15 Do {* Цикл для i => [1 .. 15] *}
    If A[i] > X Then
      write(A[i], ' '); {и элементы больше него}
  Readln; {* Приостановка программы. Ожидание Enter *}
End.