Элементы с четными индексами массива увеличить на второй - Pascal

Формулировка задачи:

Нужно решить 2 задачи, с сортировкой массивов я более менее разобрался, но как решать эти задачи, вобще понятия не имею.

1) К элементам с четными индексами прибавить второй элемент, а из элементов с нечетными индексами – вычесть третий.

2) Элементы с четными индексами увеличить на второй, а с нечетными – уменьшить на первый элемент.

Решение задачи: «Элементы с четными индексами массива увеличить на второй»

Листинг программы

const n=10;
var a:array [1..n] of integer;
i,a_2,a_3,a_1:integer;
BEGIN
For i:=1 to n do a[i]:=Random(10); //заполнение массива
For i:=1 to n do Write(a[i],' '); //вывод массива
Writeln;
a_2:=a[2];   //первая задача
a_3:=a[3];
For i:=1 to n do
  IF i mod 2 = 0 THEN a[i]:=a[i]+a_2
                 ELSE a[i]:=a[i]-a_3;
For i:=1 to n do Write(a[i],' ');  //вывод массива
Writeln;
a_2:=a[2];   //вторая задача
a_1:=a[1];
For i:=1 to n do
  IF i mod 2 = 0 THEN a[i]:=a[i]+a_2
                 ELSE a[i]:=a[i]-a_1;
For i:=1 to n do Write(a[i],' ');  //вывод массива
Writeln;
END.

Объяснение кода листинга программы

Установление размера массива:
- Название переменной: n
- Значение переменной: 10
Объявление переменных и массива:
- Название переменных: a, i, a_2, a_3, a_1
- Значение переменной: integer (тип данных), array [1..n] of integer (массив типа integer с размером n)
Заполнение массива случайными числами:
- Инициализация переменной: i
- Использование функции Random(10) для заполнения элементов массива случайными числами
- Цикл For для прохода по массиву и заполнения его значениями
- Вывод массива на экран
Увеличение элементов с четными индексами на значение второго элемента:
- Инициализация переменных: a_2, a_3
- Использование цикла For для изменения каждого элемента массива
- Условное выражение IF для определения четности индекса и выполнения операций увеличения или уменьшения
- Вывод измененного массива на экран
Увеличение элементов с четными индексами на значение второго элемента второй раз:
- Обновление значения переменной a_2 с новым значением a[2]
- Обновление значения переменной a_1 с новым значением a[1]
- Использование цикла For для изменения каждого элемента массива
- Условное выражение IF для определения четности индекса и выполнения операций увеличения или уменьшения
- Вывод измененного массива на экран