var
  n, i, x: integer;
  positive, negative: array[1..100] of integer;
  count_positive, count_negative: integer;

begin
  // Nhập số lượng phần tử của mảng
  readln(n);

  // Khởi tạo số lượng phần tử ban đầu của mảng số dương và số âm là 0
  count_positive := 0;
  count_negative := 0;

  // Nhập dãy số nguyên
  for i := 1 to n do
  begin
    readln(x);

    // Kiểm tra số nguyên x là số dương hay số âm và lưu vào mảng tương ứng
    if x > 0 then
    begin
      count_positive := count_positive + 1;
      positive[count_positive] := x;
    end
    else if x < 0 then
    begin
      count_negative := count_negative + 1;
      negative[count_negative] := x;
    end;
  end;

  // In ra màn hình dãy số nguyên dương
  writeln('Danh sach so nguyen duong:');
  for i := 1 to count_positive do
  begin
    writeln(positive[i]);
  end;

  // In ra màn hình dãy số nguyên âm
  writeln('Danh sach so nguyen am:');
  for i := 1 to count_negative do
  begin
    writeln(negative[i]);
  end;
end.