10. Написать программу. Ввести 2 числа. Если их сумма неотрицательно, вычесть его на 20 и вывести на экран, в противном случае умножить на 5 и вывести на экран

program SumCheck; var num1, num2, sum: integer; begin // Ввод двух чисел writeln('Введите первое число:'); readln(num1); writeln('Введите второе число:'); readln(num2); // Вычисление суммы sum := num1 + num2; // Проверка условия и выполнение соответствующих действий if sum >= 0 then begin sum := sum - 20; writeln('Сумма минус 20: ', sum); end else begin sum := sum * 5; writeln('Сумма, умноженная на 5: ', sum); end; readln; // Чтобы консоль не закрылась сразу end. Описание программы: 1. Программа `SumCheck` принимает два целых числа `num1` и `num2`. 2. Вычисляет их сумму и сохраняет её в переменной `sum`. 3. Проверяет, является ли сумма неотрицательной (`sum >= 0`). 4. Если сумма неотрицательная, из неё вычитается 20, и результат выводится на экран. 5. Если сумма отрицательная, она умножается на 5, и результат выводится на экран. 6. `readln;` используется для задержки закрытия консольного окна, чтобы пользователь мог увидеть результат.