Даны два массива. Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива. решите пожалуйста через pascal ABC и опишите программу

Количество элементов в массивах одинаковое и равно n. a - первый массив b - второй массив c - третий массив i - цикловая переменная, индекс элемента массива var a, b, c : array [1..100] of integer; n, i : integer; begin readln (n); for i := 1 to n do readln (a [ i ]); [ввели первый массив] for i := 1 to n do readln (b [ i ]); [ввели второй массив] for i := 1 to n do begin if i mod 2 = 0 then  [проверка индекса элемента на чётность]  c [ i ] = b [ i ]; else c [ i ] = a [ i ]; end; [создали третий]  for i := 1 to n do writeln (c [ i ] : 4); [вывод третьего массива] end. Можно всё это сделать одним циклом. var a, b, c : array [1..100] of integer; n, i : integer; begin readln (n); for i := 1 to n do begin readln (a [ i ]); readln (b [ i ]); if i mod 2 = 0 then c [ i ] = b [ i ]; else c [ i ] = a [ i ]; writeln (c [ i ] : 4); end; end.

uses crt; {подключение модуля crt} var {описание переменных}    a,b,c:array [1..100] of integer;   i:integer; begin   write('Введи количество элементов массива: '); read(i); {вывод текста на экран и чтение вводимых данных}   clrscr; {очистка экрана}   writeln('Первый массив: '); {вывод текста на экран}   for i:=1 to i do {цикл}   begin     a[i]:=random(10); {значения первого массива от 0 до 9}     b[i]:=random(10)-10; {значения второго массива от -10 до -1}     if i mod 2=0 then c[i]:=b[i] {четные элементы третьего массива}       else c[i]:=a[i]; {нечетные элементы третьего массива}     write(a[i]:4); {вывод на экран первого массива}   end; {конец цкла}   writeln; writeln('Второй массив'); {вывод текста на экран}   for i:=1 to i do {цикл}     write(b[i]:4); {вывод второго массива на экран}   writeln; writeln('Третий массив:'); {вывод текста}   for i:=1 to i do {цикл}     write(c[i]:4); {вывод третьего массива} end.