program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b: array of integer;
    i,n,k,m: integer;
begin
  write('n = ');  readln(n);
  setlength(a,n+1);
  setlength(b,n+1);
  writeln('массив а:');
  for i:=1 to n do  read(a[i]);
  k:=1; m:=n;
  for i:=1 to n do
  begin
    if a[i]>0 then
    begin
      b[k]:=a[i];  k:=k+1;
    end  
    else
    begin
      b[m]:=a[i];  m:=m-1;
    end;  
  end;
// переписываем в обратном порядке отрицательные
  for i:=1 to ((n-m+1) div 2) do
  begin
    k:=b[i+m];  b[i+m]:=b[n-i+1];
    b[n-i+1]:=k;
  end;
  writeln('массив b:');
  for i:=1 to n do write(b[i],' ');
end.