помогите? Дан массив целых чисел (n=15),

Const n = 15;
Type myMas = Array [ 1 .. 2*n ] of integer;
Var
a : myMas;
i, j, k, n2 : integer;
begin
randomize;
n2 := n;
Write('k: ');
ReadLn(k);
for i := 1 to n do
begin
a[ i ] := random(71)-20;
write(a[ i ]:5);
end;
WriteLn; WriteLn;
for i := n downTo 1 do
if (a[ i ] mod i = 0) then
begin
for j := n2 downTo i do a[ j+1 ] := a[ j ];
n2 := n2 + 1;
a[ i+1 ] := k;
end;
for i := 1 to n2 do write(a[ i ]:5);
readLn;
end.

Если не сделаешь сама, то пиши на мыло

ну и что сложного? перебираешь, затем смотришь кратность и добавляешь элементы

Не знаю на каком языке тебе это нужно, но вот общая картина:
В начале объявляешь цикл на заполнение с условием пока переменная не будет равна переменной n(то есть, пока не заполнит массив до нужной стадии) . Внутри цикла впиши присвоение массиву с индексом i(по которому и идет исчисление до конца цикла) рандомного числа из указанного тобой промежутка.
После этого должна создать еще один цикл, с таким же условием до окончания с переменной i. Внутри поставь проверку (if) на кратность, если подтверждается - укажи чтобы было присвоение ячейке i+1 нужного числа.