Дано целое число. Если оно является положительным…

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