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

Привет! Давай разберемся с твоей задачей на Паскаль. Нам нужно составить программу, которая будет выполнять разные действия в зависимости от знака числа: если число положительное, то оно возводится в квадрат, а если отрицательное — увеличивается в 3 раза.

Вот пример программы, которая выполняет это условие:

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.

Попробуй запустить эту программу в среде разработки Паскаль. Если у тебя возникнут вопросы или что-то будет не так, пиши, помогу разобраться!