Question

Дано целое число а, если значение а> 0, то необходимо увеличить его на единицу. написать программу для решения этой .

Answer 1

Uses crt;
var a:integer;
begin
readln(a);
if a>0 then inc(a);
writeln(a);
end.