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

• Program Chisla;
• Var   x : integer; {вводимое число}
• Begin
• writeln\('Введите число '\); {вводим целое число}
• readln\(x\);
• if x<0     then       x:=-x;
• writeln \(x\);
• End.