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

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.

const n=10;
var
a:array[1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n do
readln(a[i]);
k:=0;
for i:=1 to n-1 do
if ((a[i] mod 4 = 0) or (a[i] = 4)) and ((a[i+1] mod 4 = 0) or (a[i+1] = 4)) then k:=k+1;
writeln(k);
end.

k := 0;
for i := 1 to N-1 do
 if (a[i] mod 4=0) and (a[i+1] mod 4=0) then
 inc(k);
writeln(k);