Арифметический цикл Опции

[polic]

значит надо возвести в (-1)степень i воспользовался FAQ выдаёт ошибку что преобразование типа bolean в byte
запрещено

[мисс_граффити]

теперь смотри, что произойдет.
сначала v равно неизвестно чему (с высокой степенью вероятность 0)
ты считаешь

S1:=A+B*V;

скорее всего, получаешь А

много раз высчитываешь в цикле v (считаешь его каждый раз или не считаешь ни разу в зависимости от четности n)

for I:=m to n do
if ODD(N) then 
  v:=(A+X*i)/(B+X*i);

выходишь из цикла с последним значением v и в зависимость от четности n (опять же!) иногда меняешь знак.

А теперь объясни, в чем смысл этих шаманских действий? В S1 по-прежнему осталось А (а может, и не А)
В S вообще неизвестно что (вероятно - тоже А).

Не знаю, в каких справочниках ты копался, но лучше бы почитал FAQ и инфу по ссылкам, которые тебе дали.