Сформировать массив, состоящий из 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.