дано целое число. если оно является положительным, то прибавить к нему 1, в противном случае вычесть из него 2, вывести полученное число.

var 

  b: integer;

begin

  writeln('Введите целое число');

  readln(b);  //Вводим целое число

  if b > 0 then writeln(b + 1)  {Если число положительное, то печатаем это число + 1, иначе печатаем это число - 2}

  else writeln(b - 2);

end.

Отмтеть решение, как лучшее, плиз.