Склавиатуры вводятся целые числа. признаком конца ввода чисел является 0. изменить знак отрицательных чисел на положительный. результаты вывести на экран.

uses
  System.Collections.Generic;
var
  a: List<integer> := new List<integer>(); //Объявляем и создаём динамический массив
  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.