Процес збильшення растрового зображення мае назву скажите​

Это без учета инфляции и воровства банка.

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

ПЕР
  массив: РЯД 30 ИЗ ЦЕЛ;
  сч, число: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20;
    Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  число := Приём.Число();
  Вывод.Цепь("^");
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > число ТО
      Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН

КОН Задание.

____________________Б

1)-1
2)-2
3)-3
4)-4
5)-5
6)-10
7)-11
8)-12
9)-13
10)-14
11)-15
12)-20
13)-21
14)-22
15)-23
16)-24
17)-25
18)-30
19)-31
20)-32