Дан одномерный массив. К четным элементам массива прибавить 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.