СРОЧНО!!!
ПАСКАЛЬ.
Даны 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);