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

Предложу решение, основанное на том, что понял из текста) var a: integer;beginwriteln('Вводите числа'); a:=1;while a<>0 do beginreadln(a);if a<0 then writeln('Противоположное число ',abs(a));end;readlnend.Можно их в массив записывать, если нужно вывести красиво.