Пожалуйста помогите 9.10

Var
   n:integer;
   P,Sc,Sz:real;
Begin
P:=1;
Sc:=0;
Sz:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
    Begin
    Sc:=Sc+Cos(n);
    Sz:=Sz+Sin(n);
    P:=P*Sc/Sz;
    End;
WriteLn('P = ',P);
End.



Function F(n:integer):real;
Var
   R:Real;
Begin
R:=1;
For n:= 1 to n do
    R:=R*n;
F:=R;
End;

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