С клавиатуры вводятся целые числа. Признаком конца ввода чисел является 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.