Помогите сотавить программу Турбо Паскале. Дано целое число А. Если значение А>0,…

Помогите сотавить программу Турбо Паскале. Дано целое число А. Если значение А>0, то необходимо увеличить его на единицу. Разобрать схемуалгоритма для решения этой задачию Протестировать алгоритм для А=5, А=-4, А=0 в