var a:array[1..50]of integer;
    n,i,j:integer;
begin
randomize;
readln(n);
writeln;
for i:=1 to n do read(a[i]);
writeln;
i:=1;
while i<=n do
   begin
    if a[i]>0 then
       begin
         for j:=i to n-1 do
         a[j]:=a[j+1];
         n:=n-1;
       end
    else i:=i+1;
   end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln
end.