паскаль.
даны 3 числа.все отрицательные среди них числа заменить их модулем и снова вывести все числа.

PascalABC.NET

begin

 var (a, b, c) := ReadReal3('Введи a, b, c;');

 if a < 0 then a := -a;

 if b < 0 then b := -b;

 if c < 0 then c := -c;

 Println(a, b, c);

end.

На самом деле нет нужды в проверке знака, можно было для всех трех чисел написать по типу a := Abs(a);