паскаль.Разработка программы с использованием циклов c неизвестным числом повторений

[bulaev]

Найти общий член ряда.точностью а=0,001

[Leshii]

Ну, а самому чуток подумать ?)

Uses crt;
const eps=0.001;
var 
  n: integer;
  F, sum, factorial: real;
begin
clrscr;
while F > eps do begin
  F:=exp(n*ln(-1))/factorial*(2*n+1);
  sum:=sum+F;
  factorial:=factorial*n;
  n:=n+1;
end;
writeln(sum);
readln;
end.

Есть вот только одна загвоздка ,а именно тут exp(n*ln(-1)) ( дам подсказку нужно проверить на парность и не парность ). Мучайся

[Базиля]

Однако логарифм отрицательного числа