Дано целое число А. Если значение А > 0, то необходимо увеличить его ** единицу....

Question

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

Answer 1

Var
A:integer;
Begin
If A>0 then
A+1
Else
Writeln('неверно')
End.

Я так понял, тебе нужно было это, в выводе можешь написать хоть что.