Взаданном массиве к четным элементам прибавить a . а из элементов с четным номером вычесть b.

const n=5;
var m:array[1..n] of integer;
i,a,b:integer;
begin
readln(a,b);
for i:=1 to n do readln (m[i]);
for i:=1 to n do
if i mod 2 = 0 then m[i]:=m[i]+a
else m[i]:=m[i]+b;
for i:=1 to n do
writeln ('m[', i,']=', m[i]);
end.