Сложная прога, вычислить сумму N слагаемых заданного вида ...

[Mustang92]

error 41:operand types do not match operator
такая ошибка появляется где строка (i<N and i>1) и указывает а второе условие...
формуле при х=-1 сумма сходится к нулю?!

[testtest]

Код: [Выделить]

function sum2(x,N,i:double):double
begin
    var t:double;
    if i < N and i > 1 then
    begin
        if i mod 10 = 0 then
        begin
            write('\right.\right.\right.\right.\right.\right.\right.\right.\right. \cdot[/tex]'#10'[tex]');
        end;

        write('\left(1-\dfrac{',2*i-3,'}{',2*i,'}x');
        t := 1.0 - (2.0*i-3.0) / (2.0*i) * x * sum2(x, N, i + 1);
        write('\right)');
    end
    else if i = 1 or i = 0 then
    begin
        write('\left(1+\dfrac12x');
        t := 1.0 + 1.0/2.0 * x * sum2(x, N, 2);
        write('\right)');
    end
    else
    begin
        t := 1.0;
    end;
    sum2 := t;
end;

begin
    writeln(#10"Sum: ", sum2(1.0, 150, 1));
end.
сейчас, может, будет ошибка, связанная с тем, что {} считается за комментарий. тогда вообще удаляй латеховский вывод из программы.