var
  ish: array of integer;
  i, n: integer;

begin
  read(n);
  SetLength(ish, n);
  for i := 0 to n - 1 do 
  begin
    read(ish[i]);
  end;
  writeln('--------------------------------------');
   for i:=0 to n-1 do     write(ish[i], ' '); 
  writeln;
writeln('--------------------------------------');
  for i := 0 to n - 1 do
  begin
    if (ish[i] < 0) then ish[i] := 0;
    write(ish[i], ' ')
  end;
end.