Question

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

Answer 1

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