Сумма ряда Опции

[Merlin]

Program Summa
  Var
     S,a:real;
     n:integer;
Begin
   for n:=1 to 20 do
begin
    a:= (-1)  (sin *n *x) / n;
    S:= S+a;
end;
    writeln ( ' Сумма ряда S=', S:6:3 );
  readln;
end.

Там где у меня вычисляется "a" (-1) должна быть в n-1 степени, я что забыл как это записывается в Паскале, не подскажите ?

[Merlin]

Програмку подправил, всё работает, забыл просто описать что P<x<P.