Question

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

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

Answer 1

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