РЕШИТЕ, ПОЖАЛУЙСТА!!!! ПАСКАЛЬ 11 КЛАСС Дан массив целых чисел (n=12), заполненный...

Question

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

Answer 1

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.