Создать одномерный массив с генератора случайных чисел, содержащий целые числа из диапазона от -20 до +80. к элементам с четными номерами прибавить а, а из элементов с нечетными номерами вычесть в. а и в вводятся с клавиатуры. решите через процедуру или функцию.

//pascal abc.net v3.0 сборка 1111 var   i,a,b: integer;   ar: array[1..10] of integer;   procedure odddec(var a,b: integer);     //подпрограмме переданы аргументы a и b //процедура для вычитания в нечётном элементе begin; a: =a-b; end; procedure notoddinc(var a,b: integer); //подпрограмме переданы аргументы a и b //процедура для сложения в чётном элементе begin; a: =a+b; end; begin randomize; readln(a); //ввод a readln(b); //ввод b writeln('array: '); for i: =1 to 10 do //весь массив   begin;   ar[i]: =random(-20,80); //случайные числа от  -20 до  80 включительно   write(ar[i]: 4); //вывод   if odd(i) then odddec(ar[i],b) else notoddinc(ar[i],a);     {если нечётное, то первая процедура, иначе вторая. обращаю внимания на то, что элементы меняются сразу после вывода}   end; writeln; writeln('final array: '); //вывод получившегося массива for i: =1 to 10 do write(ar[i]: 4); end. пример ввода: 20 10 пример вывода: array:   10   16   0   60   23   4   22 -20   4   55 final array:     0   36 -10   80   13   24   12   0   -6   75