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

[polic]

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

[Michael_Rybak]

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);
  begin {зачем этот бегин здесь? его надо поставить после заголовка цикла}
  for I:=m to n do
    if ODD(N) {ты проверяешь четность N. Почему? Посмотри внимательно на формулу и увидишь, 
      четность какой переменной тебя интересует}
    then v:=(A+X*i)/(B+X*i); {a чему будет равно v, если переменная четная? 
      надо добавить соответствующий else}
    S1:=A+B*V;
    S:=S+S1;{перед циклом нужно инициализировать S, т.е. присвоить S значение 0}
  end;
  writeln ('S=',s:4:2);
  readln (s);{вместо этого можно просто readln()}
end.