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

Привет! Давай разберемся с твоей задачей на Паскаль. Нам нужно составить программу, которая будет выполнять разные действия в зависимости от знака числа: если число положительное, то оно возводится в квадрат, а если отрицательное — увеличивается в 3 раза. Вот пример программы, которая выполняет это условие: ```pascal program ProcessNumber; var num: Integer; begin Write('Введите число: '); Readln(num); if num > 0 then num := num * num else if num < 0 then num := num * 3; Write('Результат: ', num); Readln; end. ``` Что здесь происходит: 1. Мы объявляем переменную `num`, которая будет хранить введенное число. 2. С помощью `Write` просим пользователя ввести число и считываем его в переменную `num`. 3. Если число больше нуля (`num > 0`), тогда мы возводим его в квадрат, умножая само на себя (`num := num * num`). 4. Если число меньше нуля (`num < 0`), тогда умножаем его на 3 (`num := num * 3`). 5. В конце выводим результат с помощью `Write`. Попробуй запустить эту программу в среде разработки Паскаль. Если у тебя возникнут вопросы или что-то будет не так, пиши, помогу разобраться!