var A:array[1..100]of integer;
    i,j,k,n,d:byte;
    t:integer;
begin 
    write('So pt cua mang: ');  
    readln(n); //Doc so phan tu nhap vao
    for i:=1 to n do
    begin
         write('A[',i,']: ');
         readln(A[i]); //Nhap gia tri vao mang
    end;    
    for i:=1 to n do
    if A[i]>0 then inc(d);//Dem so luong >0
    for k:=1 to d do
    for i:=1 to n do
    begin
       if A[i]>=0 then
       begin
           t:=A[i];
           for j:=i to n-1 do
           A[j]:=A[j+1];
           A[n]:=t;
           break; //Huy vong lap
       end;
    end;
    for i:=1 to n do
    writeln(A[i]);
    readln;
end.