Question

дано целое число Напишите программу вычисления если это число имеет положительное значение то Добавить к нему цифру 1 иначе выведет его без изменений​

Answer 1

var num:integer;

begin

readln(num);

if num >-1 then

num := num + 1

else

num := num;

write(num) ;

end.