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

Question

Помогите сотавить программу Турбо Паскале.

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

Answer 1

Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
end.

---