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

Var a: integer; begin if a> 0 then a+1 else writeln('неверно') end. я так понял, тебе нужно было это, в выводе можешь написать хоть что.