Одномерный массив из 15 элементов заполнить случайным образом числами от 7 до 12. Присвоить 8-му элементу значение 10-го элемента, увеличенное на 5, а 10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
на паскале

program mas; var     mas, p_mas: array[1..15] of integer;     i: integer; begin randomize; for i:= 1 to 15 do   begin     mas[i] := Random(6) + 7;     p_mas[i] := mas[i];   end; mas[8] := mas[10] + 5; mas[10] := mas[13]; writeln('Первоначальный массив:'); for i := 1 to 15 do   write(p_mas[i], ' '); writeln(CRLF + 'Изменённый массив:'); for i := 1 to 15 do   write(mas[i], ' ');end.