program masuvu_1_7;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  b,a:array[1..10000] of integer ;
  k1,k2,i,n:integer;
begin
  readln(n);
  k2:=0;
  for i:=1 to n do
  begin
  readln(a[i]);
  if a[i]<0 then
  begin
  k2:=k2+1;
  b[k2]:=a[i];
  end;
  end;
    for i:=1 to n do
  if a[i]>0 then
  begin
  k2:=k2+1;
  b[k2]:=a[i];
  end;
    for i:=1 to k2 do
  writeln(b[i]);
  readln;
end.