дано целое число a. если a больше 0, то увеличить его на единицу иначе уменьшить на 1. проверить алгоритм для a-3, a-0, a - - 12

program zz1;

var n:integer; / / задаем переменную целого типа

begin

write (' введите заданное число ');

read (n); / / вводим с клавиатуры число

if n > 0 / / проверяем, если введенное число больше нуля, то

then n:=n + 1 / / увеличиваем исходное число на единицу

else n:=n - 1; / / иначе, уменьшаем исходное число на единицу

write (' полученное число = ', n); / / выводим ответ

end.