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

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.