задан массив состоящий из 10 элементов сформировать два массива по 5 элементов каждый включая в первый элементы исходного массива с чётными индексами а во второй с нечётными. сделайте в PascalABC. Net

var

i: integer;

a: array [1. . 10] of integer;

b, c: array [1. . 5] of integer;

begin

writeln('Исходный массив:');

randomize;

for i := 1 to 10 do

begin

a[i] := random(20) - 10;

write(a[i], ', ');

if i mod 2 = 0 then b[trunc((i - 1) / 2) + 1] := a[i] else c[trunc((i - 1) / 2) + 1] := a[i];

end;

writeln;

writeln('Полученные массивы:');

for i := 1 to 5 do write(b[i], ' , '); writeln;

for i := 1 to 5 do write(c[i], ' , ');

end.