program z7_118;
const n=10;
var a,b:array[1..20] of integer;
k,i,j,m:integer;
BEGIN
clrscr;
randomize;
   writeln('vvedite k');
readln(k);
   for i:=1 to n do begin
   a[i]:=random(10)-2; write(a[i]:4);
end;
   writeln;
   i:=1;j:=1;m:=0;
   while i<=n do
      if a[i]<0 then begin
   b[j]:=k; b[j+1]:=a[i]; i:=i+1; j:=j+2; m:=m+1;
end
   else begin
   b[j]:=a[i]; i:=i+1;j:=j+1;
end;
   for i:=1 to n+m do
write(b[i]:4);
readln;
END. <\br>