var a, b, c, d: array [0..6] of integer;
    bx, cx, dx: integer;
    i, j, temp: integer;
begin
     for i := 0 to 6 do
     begin
          a[i] := random(11) - 5;
          writeln('[', i, '] => ', a[i]);
     end;
     for i := 0 to 6 do
     begin
          if (a[i] > 0) then
          begin
               b[bx] := a[i];
               inc(bx);
          end;
          if (a[i] = 0) then inc(cx);
          if (a[i] < 0) then
          begin
               d[dx] := a[i];
               inc(dx);
          end;
     end;
     for i := 0 to bx - 1 do
         for j := 0 to bx - 2 do
             if (b[j] > b[j + 1]) then
             begin
			          temp := b[j];
                b[j] := b[j + 1];
			          b[j + 1] := temp;
             end;
     for i := 0 to dx - 1 do
         for j := 0 to dx - 2 do
             if (d[j] > d[j + 1]) then
             begin
			          temp := d[j];
                d[j] := d[j + 1];
			          d[j + 1] := temp;
             end;
     for i := 0 to bx - 1 do write(b[i], ' ');
     for i := 0 to cx - 1 do write('0 ');
     for i := 0 to dx - 1 do write(d[i], ' ');
end.