Срочно! пожалуйста! Задан массив с количеством элементов N. Сформируйте два массива: в первый включите элементы исходного массива с нечетными номерами, а во второй – с четными

const   n=20; var   a:array[1..n] of integer;   b,c:array[1..n div 2] of integer;   i:integer; begin   { инициализация }   Randomize;   Writeln('Элементы массива');   for i := 1 to n do   begin     a[i]:=Random(99)+1; { Интервал [1..99] }     Write(a[i],' ');   end;   Writeln;   { Формирование массивов-результатов }   for i:=1 to n div 2 do   begin b[i]:=a[2*i-1]; c[i]:=a[2*i] end;   { Вывод результатов }   Writeln('Массив, сформированный из значений с нечетными номерами');   for i:=1 to n div 2 do Write(b[i]:3); Writeln;   Writeln('Массив, сформированный из значений с четными номерами');   for i:=1 to n div 2 do Write(c[i]:3); Writeln end. Тестовое решение: Элементы массива 20 99 21 39 51 96 76 1 64 32 41 80 19 30 37 55 40 24 60 50 Массив, сформированный из значений с нечетными номерами  20 21 51 76 64 41 19 37 40 60 Массив, сформированный из значений с четными номерами  99 39 96  1 32 80 30 55 24 50