Подскажите дано целое число а. если значение а > 0, то необходимо увеличить его на единицу. разработать схему алгоритма для решения этой . протестировать алгоритм для a=5, a=-4, a=0. сделать в паскале. программу я написала: program n1; var a: real; begin readln (a); if a> 0 then a: =a+1; writeln; end. правильно или нет? и какие у меня должны выходить значения? если я 5 подставляю выходит 5, хотя по условию 5+1=6, разве нет? ?