program Mainvanumber: Integerbegi// Ввод числWrite('Введите число: ')ReadLn(number);
// Проверка на положительностif number > 0 thenumber := number - elsnumber := number + 6;
// Вывод результатWriteLn('Результат: ', number)end.
program Main
va
number: Integer
begi
// Ввод числ
Write('Введите число: ')
ReadLn(number);
// Проверка на положительност
if number > 0 the
number := number -
els
number := number + 6;
// Вывод результат
WriteLn('Результат: ', number)
end.