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

[polic]

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

[polic]

Код

program chiclihescie;
var S,V,S1,B,A,X:real;n,m,i:integer;
begin
writeln ('vvedite A,B,N,M,X');
readln   ( A,B,N,M,X);
S1:=A+B*V;
S:=S+S1;
begin
for I:=m to n do
if ODD(N)
then v:=(A+X*i)/(B+X*i);
if odd(n)
then v:=-v;
end;
end.

откапал в какомто справочнике , товарищи модераторы я правильно сделал?