Заданы 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 2< > 0  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.

Пусть исходные координаты чертежника (x; y). смоделируем алгоритм: 0) (x; y) 1) (x-1; y-2) 2) n раз делается одно и то же: первая координата изменяется на a, затем из нее вычитается 1, вторая координата изменяется на b, затем вычитается 2. в результате координаты равны: (x-1+n*(a-1); y-2+n*(b-2)) 3)  (x-1+n*(a-1)-20; y-2+n*(b-2)-12)концом работы программы является попадание в стартовую позицию. то есть  x-1+n*(a-1)-20=x => n*(a-1)=21 y-2+n*(b-2)-12=y => n*(b-2)=14тогда n нужно искать среди делителей чисел 21 и 14. точнее ответом будет нод(21, 14)=7.