program v;
uses crt;
const n =13;
type vector = array[1..n] of integer;
var a:vector;
    i:integer;
    kol1:integer;   {pologit}
    kol2:integer;
    buf:integer;
    min:integer;
    j:integer;
begin
  randomize;
  clrscr;
  for i := 1 to n do
begin
  a[i] := random(10) - 5;
  write(a[i],' ');
end;
writeln;
  for i:= 1 to n do
begin
  if a[i] > 0
  then
  inc(kol1)
  else
  inc(kol2);
end;
  if kol1 < kol2
  then
begin
  write(a[i],' ');
end;
  if kol1 > kol2
  then
begin
  //сортировка вектора
    for i:= 1 to n-1 do
begin
    for j:=i+1 to n do
    if a[j] < a[min]
    then
    min:=j;
    buf:=a[i];
    a[i]:=a[min];
    a[min]:=buf;
end;
   for i:= 1 to n do
begin
  write(a[i],' ' );
end;
  writeln;
end;
 readln;
end.