[stil]

Код:

label l;
begin
for i:=0 to n-1 do begin
  if ((a[i] mod 2)<>0) and ((a[i+1] mod 2)=0) then begin
    for j:=0 to n do
      if a[j]>0 then write(a[j],' ');
    goto l;
  end;
end;
for j:=0 to n do
  if a[j]<0 then write(a[j],' ');
l:readln;