Даны действительное число х и натуральное число n .Cоставьте программу которая вычисляет сумму sinx+sin(sin(x))...sin(sin(...sinx)...)

Var S,x:real;
    n:integer;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
    Begin
    x:=Sin(x);
    S:=S+x;
    End;
WriteLn('S = ',S);
End.