Дано число а. Если а >0 на единицу, иначе уменьшить на 1. Проверить алгоритм для а:=3; а:=0; а:=-12

vara: integer;beginreadln(a);if a > 0 theninc(a)elsedec(a);writeln(a);end.Входные данные: 3Выходные данные: 4Входные данные: 0Выходные данные: -1Входные данные: -12Выходные данные: -13P.S. Процедура inc(a) увеличивает a на 1, процедура dec(a) уменьшает a на 1.