Программа на языке паскаль которая меняет отрицательное число на противоположное

**Цель: Понять** Для создания программы на языке Pascal, которая будет менять отрицательное число на противоположное, мы можем использовать следующий код: ```pascal program ChangeNegativeToOpposite; var num: integer; begin // Вводим число с клавиатуры write('Введите число: '); readln(num); // Проверяем, является ли число отрицательным if num < 0 then begin // Меняем знак числа на противоположный num := -num; writeln('Отрицательное число изменено на противоположное: ', num); end else writeln('Введенное число не является отрицательным.'); end. ``` **Объяснение:** 1. Мы объявляем переменную `num` типа `integer`, которая будет хранить введенное число. 2. С помощью `write` и `readln` пользователь вводит число с клавиатуры. 3. С помощью условного оператора `if` мы проверяем, является ли введенное число отрицательным (`num < 0`). 4. Если число отрицательное, то меняем его знак на противоположный, присваивая `num` значение `-num`. 5. Затем выводим измененное число с помощью `writeln`. 6. Если число не было отрицательным, сообщаем об этом пользователю. Этот код позволит вам создать программу на Pascal, которая будет менять отрицательное число на противоположное.