составьте программу которая заполняет массив а [1..10]случайными целыми числами в диапазоне от 1 да 22 и преобразовывает его увеличивая все элементы с четными значениями на 1 а с нечетными уменьшая на 1

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";ПЕР  a: РЯД 10 ИЗ ЦЕЛ;  сч: ЦЕЛ;УКАЗ  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 21)) + 1  КОН;  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП    ЕСЛИ ЧЕТ(a[сч]) ТО УВЕЛИЧИТЬ(a[сч])    ИНАЧЕ УМЕНЬШИТЬ(a[сч]) КОН  КОНКОН Задание.