ошибка в задаче на циклы Опции

[k0sT]

здраствуйте, имеется задача на циклы, сама задача скрином ниже, программу я написал, но, где то есть ошибка, помогите пожалуйста ее найти и исправить.

Program LL_U_K_Jl_bI;
var
   x,Sum,SumM:real;
   i,n,f:integer;
const E=0.001;
Begin
writeln ('Input x:');
readln (x);
Sum:=0;
SumM:=0;
i:=1;
n:=1;
while  1/i >= E DO
Begin
    f:=n*i;
    if (n/2) mod 0 then
    begin
    SumM:=(Exp(n*ln(1)) * (exp(n*ln(x))/f) );
    end;
    Sum:=Sum+SumM;
    n:=n+1;i:=i+1;
    writeln (SumM);
End;
writeln ('Summa =',Sum);
readln;
End.

[volvo]

Задача практически аналогична Разложению e^x в ряд Тейлора ... С одним отличием, придется на каждой итерации менять знак очередного члена последовательности (домножать его на -1)

[k0sT]

все перепробывал, не хочет работать, подскажите плз все таки как сделать))

[Sozialist]

if (n/2) mod 0 then - это еще что такое?

[k0sT]

это я уже пробывал все, что только можно(( боюсь там много всяких глупостей((