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