uses crt;
var i,j,n,k,max:word;
dau:array[1..1000] of boolean;
a,luu:array[1..1000] of longint;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]>=0 then dau[i]:=true
else dau[i]:=false;
end;
readln;
max:=0;
for i:=1 to n do
begin
if i<>n then j:=i+1
else break;
while dau[i]=dau[j] do inc(j);
if j-i>max then
begin
max:=j-i;
for k:=i to j-1 do
luu[k-i+1]:=a[k];
end;
end;
for i:=1 to max do write(luu[i],' ');
readln;
end.
