program Main;
var
number: Integer;
begin
// Ввод числа
Write('Введите число: ');
ReadLn(number);

// Проверка на положительность
if number > 0 then
number := number - 8
else
number := number + 6;

// Вывод результата
WriteLn('Результат: ', number);
end.