program lab;
var
a: array[1..20] of integer;
n,i: integer;

procedure fun(i: integer);
var
  n: integer;
begin
  n:=a[i];
  if n <> 0 then
  begin
    if n < 0 then
    begin
      fun(i+1);
      write(n,' ')
    end
    else
    begin
      write(n,' ');
      fun(i+1);
    end;
  end;
end;

begin
  writeln('Введите последовательность:');
  readln(n);
  i:= 1;
  while n <> 0 do
  begin
    a[i]:=n;
    inc(i);
    readln(n);
  end;
  fun(1);
end.