uses
  System.Collections.Generic;
var
  a: List := new List(); //Объявляем и создаём динамический массив
  i: integer;
begin
  repeat
    readln(i);
    if (i = 0) then
      break
    else
      a.Add(i);
  until (False); //Прекращаем цикл, когда рак (break) в цикле свиснет (False можно заменить на "2 + 2 = 5"
  
  writeln(#13); //Вставляем 2 пустые строки
  
  foreach i in a do //Выводим исходный массив
    write(i, ' '); 
  
  writeln();
  
  foreach i in a do //Выводим конечные числа, нет задачи массив изменять
    write(abs(i), ' '); 
end.