Вещественные операции

[Marfeys]

Составить программу вычисления функции F(x)

F(x)=a*x*x+b*x+c+2(sin(x)-Sin(2*x)/2+....+(SIN(N*X)/n)*(-1)^(n-1)

До выполнения условия |sin(n*x)/n|<=e(Эпсил***)

Даны e=0.0005 , e=0.0001 and e=0.001
Даны x=2.15 , x=2.76 and x=3.02

Итерационный цикл...На любой из этих пар Pascal ABC пишет что в шестой строке неверная вещественная операция...
Вот код

var a,b,c,F,x,S,eps:real;
n:integer;
begin
write('vvedite x=');readln(x);
write('vvedite eps=');readln(eps);
F:=0; n:=1; S:=(sin(n*x)/n)*exp(ln(-1)*(n-1));
while abs(sin(n*x)/n)<=eps do
begin
F:=F+S;
n:=n+1;
S:=(sin(n*x)/n)*exp(ln(-1)*(n-1));
end;
F:=2*F+a*x*x+b*x+c;
write('gJI9I x=',x:5:3, ' eps=',eps:5:2,' F=',F:10:3);
readln;
end.

Подскажите в чём ошибка ....

[unbanned]

S:=(sin(n*x)/n)*exp(ln(-1)*(n-1));

вот тут ошибка... нельзя из отрицательного числа логарифм считать

[Marfeys]

Я думал я задал число (-1) И Для него уже написал степень...

[unbanned]

в принципе -1 в степени это просто минус... т.е. если степень четная +, если нечетная -... вместо не го можно использовать просто -1.
допустим
for i:=1 to 10 do begin
n:=n*(-1);
end;