Складіть блок-схему алгоритму, у якому потрібно задумати число та відняти від нього 1, якщо воно менше ніж 8; додати до нього 15, якщо воно не менше ніж 8, але менше ніж 30; помножити його на 5, якщо воно не менше ніж 30. Виконайте складений алгоритм для чисел 4; 20; 52.

Ну раз значения случайные, тогда так.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  a, b, кол, сч: ЦЕЛ;
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  ср_г: ВЕЩ;

УКАЗ
  кол := Приём.Число();
  Вывод.Цепь("^");
  a := Приём.Число();
  Вывод.Цепь(" ");
  b := Приём.Число();
  Вывод.Цепь("^");
  СОЗДАТЬ(массив, кол);
  ОТ сч := 0 ДО кол - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * (b - a + 1))) + a
  КОН;
  ср_г := 1;
  ОТ сч := 0 ДО кол - 1 ВЫП
    ср_г := ср_г * массив[сч]
  КОН;
  ср_г := Матем.степВВ(ср_г, 1 / кол)
  Вывод.ЧВещ("^%g", ср_г, 0, 0, 0)

КОН Задание.

Оператор условия if
Оператор условия if является одним из самых популярных средств, изменяющих естественный порядок выполнения операторов программы.
Он может принимать одну из следующих форм:
•if <условие> then <оператор1>
else <оператор2>;
•if <условие> then <оператор>;
В переводе с английского языка данные форматы можно определить как:
•ЕСЛИ<условие>ТО<оператор1>ИНАЧЕ<оператор2>
•ЕСЛИ<условие>ТО<оператор>
Оператор условия if выполняется следующим образом. Сначала вычисляется выражение, записанное в условии. В результате его вычисления получается значение булевского типа.
В первом случае, если значение выражения есть True (истина) , выполняется <оператор1>, указанный после слова then (в переводе –“то”). Если результат вычисления выражения в условии есть False (ложь) , то выполняется <оператор2>.
Во втором случае, если результат выражения True, выполняется <оператор>, если False - оператор, следующий сразу за оператором if. Операторы if могут быть вложенными.