Ответ: Ошибка состоит в условии (a>0), т.е. пока a будет больше 0
Объяснение:
Ошибка состоит в условии (a>0), т.е. пока a будет больше 0, программа будет увеличивать цифру на единицу. В противном случае программа оставит цифру неизменной.
Отрывок if (a>0) then можно убрать вовсе и тогда при любом числе программа будет увеличивать число.
Program zadacha;
var a:integer;
begin
writeln ('Введите целое число а');
readln (a);
a:=a+1;
writeln ('Полученное число=', a);
end.
При вводе -10 мы получим -9, при вводе 0 мы получим 1, при вводе 10 мы получим 11