Вопрос, который вызвал трудности

РЕШИТЕ, ПОЖАЛУЙСТА!!!!
ПАСКАЛЬ 11 КЛАСС
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10;60]
Вставить число k перед всеми элементами, кратными числу k (k вводить с клавиатуры)

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

РЕШИТЕ, ПОЖАЛУЙСТА!!!!
ПАСКАЛЬ 11 КЛАСС
Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10;60]
Вставить число k перед всеми элементами, кратными числу k (k вводить с клавиатуры)

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var i,n,k:integer;
a:array[1..12] of integer;
begin
 write('Write k: '); readln(k);
 for i:=1 to 12 do
  begin
   a[i]:=Random(70)-10;
   write(a[i]:5);
  end;
   writeln;
 for i:=1 to 12 do
   If a[i] mod k=0
    then write(k:3,a[i])
    else write(a[i]:5);
 readln
end.