Массивы., 2 задачи на массивы (Turbo Pascal) Опции

[studentRU]

Доброго всем времени суток.

Помогите пожалуйста решить 2 задачи на массивы. (Turbo Pascal)

1. Дан массив D(n), n - кратно 3. Поменять местами 1 и 3 элементы, 4 и 6, 7 и 9 и т.д.

-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------

2. Добавить по элементу после каждого второго элемента.

Спасибо...

[Айра]

по первой:

for i:=1 to n do
  begin
    t:=a[i];
    a[i]:=a[i+2];
    a[i+2]:=t;
  end;