10. дан одномерный массив. к четным элементам массива прибавить в, а из нечетных вычесть с. значения в и с вводятся с клавиатуры

Var
a:array[1..?сколько у тебя элементов в массиве?] of integer;
b,c,i:integer;
begin
read(b,c);
for i:=1 to /kol-vo elementov v massive/ do
begin
read(a[i]);
write(a[i],' ');
end;
writeln
for i:=1 to /kol-vo elementov v massive/ do
begin
if i mod 2=0 then
a[i]:=a[i]+b
else
a[i]:=a[i]-c;
write(a[i],' ')
end;
end.