Составь и запиши программу на языке Паскаль, которая, если введенное число отрицательное, меняет его на противоположное.

var

x:integer;

begin

readln(x);

if x<0 then x:=abs(x);

writeln(x);

end.