Question

Даны три числа. (Ввести их с клавиатуры.). Если их сумма отрицательна , то заменить её абсолютным значением.

Answer 1

Var x,y,z,A: real;
Begin
Readln(x, y, z);
A: =x+y+z;
If A>0 then
Write(A)
Else
Write(abs(A));
Readln
End.