Дана строка. Если ее длина есть число нечетное, то удалить ее средний символ. В противном случае после второго символа вставить строку www

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Цепь ИЗ ".../Отделы/Иное/";

ПЕР
  строка, память: РЯД 100 ИЗ ЗНАК;
  сч: ЦЕЛ;

УКАЗ
  ЕСЛИ ЧЕТ(ДЛИНА(строка)) ТО
    память[0] := строка[0];
    память[1] := 0X;
    Цепь.Добавить(память, "www");
    ОТ сч := 1 ДО ДЛИНА(строка) - 1 ВЫП
      память[сч + 3] := строка[сч]
    КОН;
    память[ДЛИНА(строка) + 3] := 0X
  ИНАЧЕ
    ОТ сч := 0 ДО ДЛИНА(строка) ДЕЛИТЬ 2 - 1 ВЫП
      память[сч] := строка[сч]
    КОН;
    ОТ сч := ДЛИНА(строка) ДЕЛИТЬ 2 + 1 ДО ДЛИНА(строка) - 1 ВЫП
      память[сч - 1] := строка[сч]
    КОН;
    память[ДЛИНА(строка) - 1] := 0X
  КОН

КОН Задание.