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

Может я не понял задания. Но вот...

var i,b,c,x: integer;

begin
 write('Введите до какого числа будет идти масив: ');
readln(x);
write('Введите B и C ( через пробел ): ');
readln(b,c);
for i:=0 to x do
if (i mod 2 = 0)then writeln(i,'+',b,'=',i+b)
else writeln(i,'-',c,'=',i-c);
end.