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

Срочно подскажите мне!!!! Дано целое число А. Если значение А > 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, разве нет??