суммa синусов в Delphi!!!

[Владимир_король]

Помогите решить пожалуйста задачу!!!!
Вот условия:

Даны натуральное n, действительное x.
Вычислить:
sin(x) + sin(sin(x)) +... + sin(... sin(x)... )
{ n раз}







Заранее благодарен хорошим людям решившим мне помочь!!!

[Aristarh Dark]

Наверное так, но я на 100% не уверен

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  x = 10;
  n = 500;
var
  i:integer;
  s:single;
begin
  s:=sin(x);
  for i:=2 to n do
    s:=s+sin(s);
  writeln(s:5:3);
  readln;
end.

[Владимир_король]

спасибо тебе большое!!!!!!!