Допоможіть будь ласка скласти програму у Lazarus для рішення наступної задачі:
2. Задано два числа. Заменить их
значения по правилу: если число
положительное, то уменьшить его на 1,
если число отрицательное или равно 0,
то увеличить его на 3;​