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

Question

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

Answer 1

Var a:integer;

begin 

readln(a);

 if a<0 then a:=a+1;<br>
 writeln(a); 

end.