var
b: integer;
begin
writeln('Введите целое число');
readln(b); //Вводим целое число
if b > 0 then writeln(b + 1) {Если число положительное, то печатаем это число + 1, иначе печатаем это число - 2}
else writeln(b - 2);
end.
Отмтеть решение, как лучшее, плиз.