Pascal.дан целочисленный массив a размера n.переписать в новый массив в того же размера вначале все элементы исходного массива с четными номерами, а затем-с нечетными: а2, а4, а6, …а1, а3, а5 !

Var n,d,k: longint; begin write('n = '); readln(n); write('делители числа ',n,': '); d: =n div 2; if n> 1 then     begin     k: =1;     write(' ',n)     end else k: =0; while d> 0 do     begin     if n mod d = 0 then           begin           k: =k+1;           write(' ',d);           end;     d: =d-1     end; writeln; writeln('их количество: ',k); end.

Втаблице: 9 л     9       4               4           -           9           8         8           3 5 л       -       5             -           4           4             5         -           5