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

Var n: integer;

s: string;

begin

writeln ('Вводите числа') ;

repeat

readln (n) ;

s: = s + IntToStr (abs (n)) + ' '

until n = 0;

writeln (s) ;

end.

Предложу решение, основанное на том, что понял из текста)

var a: integer;

begin

writeln ('Вводите числа') ;

a:=1;

while a0 do begin

readln (a) ;

if a<0 then writeln ('Противоположное число ', abs (a)) ;

end;

readln

end.

Можно их в массив записывать, если нужно вывести красиво.