Пожалуйста посчитайте пожалуйста написать программу в Паскале. 3 номер.

Var
   x,S,St:real;
   n:integer;
Begin
Write('x = ');ReadLn(x);
S:=0;
St:=1;
For n:= 1 to 15 do
    Begin
    St:=St*Sin(x);
    if n mod 2 <> 0 then S:=S-2*n/St
    else S:=S+2*n/St
    End;
WriteLn('S = ',S);
End.