

, каждую восьмеричную цифру заменяем тремя двоичными (триадой) и получаем двоичное число. А затем, зная что
, мы группируем двоичные разряды справа налево по четыре, получая тетрады. И, наконец, каждую тетраду мы заменяем соответствующей шестнадцатиричной цифрой. Описывать этот процесс долго, а перевод делается быстро.
uses Math;
var x, y : integer;
begin
readln(x);
if x < -2 then
y := abs(x) + 2
else if (x >= -2) and (x <= 2) then
y := 1
else if x > 2 then
y := x + 1;
writeln(y);
end.