program Nebelica_2;
var firstArray, secondArray : array[1..13] of integer; thirdArray : array[1..26] of integer; k : integer;
begin
  writeln('Enter 13 elements for the first array:');
  for i : integer := 1 to 13 do
  begin
    read(firstArray[i]);
  end;
  writeln('Enter 13 elements for the second array:');
  for i : integer := 1 to 13 do
  begin
    read(secondArray[i]);
  end;
  writeln('First array:');
  for i : integer := 1 to 13 do
  begin
    write(firstArray[i], ' ');
  end;
  writeln;
  writeln('Second array:');
  for i : integer := 1 to 13 do
  begin
    write(secondArray[i], ' ');
  end;
  k := 1;
  for i : integer := 1 to 13 do
  begin
    if secondArray[i] < 0 then
    begin
      thirdArray[k] := secondArray[i];
      k := k + 1;
    end;
  end;
  for i : integer := 1 to 13 do
  begin
    if firstArray[i] >= 0 then
    begin
      thirdArray[k] := firstArray[i];
      k := k + 1;
    end;
  end;
  for i : integer := 1 to 13 do
  begin
    if secondArray[i] >= 0 then
    begin
      thirdArray[k] := secondArray[i];
      k := k + 1;
    end;
  end;
  for i : integer := 1 to 13 do
  begin
    if firstArray[i] < 0 then
    begin
      thirdArray[k] := firstArray[i];
      k := k + 1;
    end;
  end;
  writeln;
  writeln('Third array:');
  for i : integer := 1 to 26 do
  begin
    write(thirdArray[i], ' ');
  end;
end.