Pascal :

var s,i,n,h:integer;
 a,b:array[1..100] of integer;
begin
readln(n);

for i:=1 to  n do
  begin
  read(s);
   a[i]:= s;
   end;
 for i:=1 to n do begin
  if a[i]>0 then
  begin
  b[i]:=i;h:=h+1;if h=1 then write(a[i]) else write(' ',a[i]);
  end;
  end;
  writeln;
  h:=0;
  for i:=1 to n do

   if b[i]>0 then begin
    h:=h+1; if h=1 then write(b[i])else  write(' ',b[i]); end;

end.