Сформировать массив, состоящий из 15 элементов, с поддержкою датчика случайных чисел.

var
   i, j : integer;                              // объявляем переменные целочисленного типа.
   arr : array [1..15] of integer;      // объявляем массив.
   arr2 : array [1..15] of integer;    // объявляем массив.
Begin
   for i:= 1 to 15 do           // начало цикла для наполнения первого массива.
     begin
       arr[i] := random(0, 50);     // заполняем элемент массива числом из спектра от 0 до 50.
       writeln(arr= ,arr[i]);         // вывод текущего элемента массива на экран.
     end;
   for j := 1 to 15 do       // начало цикла для заполнения второго массива.
      begin
         arr2[j] := arr[j] * 2;            // наполняем элемент второго массива двойным элементом                                                    // из первого массива с тем же индексом.
          writeln(arr2= ,arr2[j]);     // вывод текущего элемента массива на экран.
      end;
end.