program AbsoluteValue; var x, y: real; begin writeln′Enterthevalueofx:′'Enter the value of x: '′Enterthevalueofx:′; readlnxxx; if x >= 0 then y := x else y := -x; writeln′Thevalueof∣′,x:0:2,′∣is′,y:0:2'The value of |', x:0:2, '| is ', y:0:2′Thevalueof∣′,x:0:2,′∣is′,y:0:2; end.
var
x, y: real;
begin
writeln′Enterthevalueofx:′'Enter the value of x: '′Enterthevalueofx:′;
readlnxxx;
if x >= 0 then
y := x
else
y := -x;
writeln′Thevalueof∣′,x:0:2,′∣is′,y:0:2'The value of |', x:0:2, '| is ', y:0:2′Thevalueof∣′,x:0:2,′∣is′,y:0:2;
end.