Заданы 2 одномерных массива. Сформировать третий из элементов с нечетными индексами обоих массивов и положительных элементов второго массива

Const n=5;

var

i, q:integer;

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

b:array [1 ... n] of integer;

c:array [1 ... 50] of integer;

begin

writeln ('Заполните первый массив') ;

for i:=1 to n do

read (a[i]) ;

writeln ('Заполните второй массив') ;

for i:=1 to n do

read (b[i]) ;

for i:=1 to n do begin

if i mod 20

then begin q:=q+1;

c[q]:=a[i];

q:=q+1;

c[q]:=b[i];

end;

end;

for i:=1 to n do

if b[i]>0

then begin

q:=q+1;

c[q]:=b[i];

end;

if q=0

then writeln ('условие не выполняется')

else begin

for i:=1 to q do

write (' ', c[i]) ;

end

end.

P. s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.

P. p. s. Программа написана на Pascal ABC.