Программа на PascalABC.NET:

program PositiveOrNegative;
var
number: integer;
begin
writeln('Введите целое число:');
readln(number);
if number > 0 then
number := number + 1
else
number := number - 2;
writeln('Полученное число:', number);
end.

После ввода целого числа программа проверит его знак и выполнит необходимую операцию (прибавит 1, если число положительное, или вычтет 2, если число отрицательное), а затем выведет результат.