срочно! пожалуйста!
Задан массив с количеством элементов 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); Writelnend.Тестовое решение:Элементы массива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