var

a, b, c:array [1..15] of integer;
i, j, k:integer;

begin

randomize;
  for i:=1 to 15 d
    begin
       a[i]:=random (15)-8;
         end;
k:=0; j:=0;
  for i:=1 to 15 do
    begin
      if a[i]<0 then
        begin
          j:=j+1; c[j]:=a[i];
           end
  else
    begin
      k:=k+1; b[k]:=a[i];
          end;
              end;

  for i:=1 to k do
    begin
      a[i]:=b[i];
         end;
 for k:=1 to j do
      a[i+j]:=c[k];
 for i:=1 to 15 do
     write (' ', a[i]);
        readln;
          end.