program PositiveNumbervanumber: integerbegiwriteln('Введите целое число:')readln(number);
if number > 0 thenumber := number + 1;
writeln('Результат: ', number)end.
program PositiveNumber
va
number: integer
begi
writeln('Введите целое число:')
readln(number);
if number > 0 the
number := number + 1;
writeln('Результат: ', number)
end.