Дан одномерный массив. К четным элементам массива прибавить B, а из нечетных…

Может я не понял задания. Но вот… 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.