РЕШИТЕ, ПОЖАЛУЙСТА!!!!
ПАСКАЛЬ 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); readlnend.