Составить программы в среде PascalABC.NET: Дано целое число. Если оно положительное, то прибавить к нему 1. В противном случае вычесть из него 2. Вывести полученное число.

Предыдущий
вопрос Следующий
вопрос

Программа на 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, если число отрицательное), а затем выведет результат.