Вычислить сумму последовательности

Задача

Дана последовательность вида: sin(x) + sin(sin(x)) + ... + sin(sin ... (sin(x))). Необходимо подсчитать сумму данной последовательности. Значение x вводиться с клавиатуры.

Пример

{Вычислить сумму S=sin(x)+sin(sin(x))+...+sin(sin...(sin(x)))}{$N+}

Uses Crt;
Const Eps = 0.03;
Var X,Y,S : Extended;
	I : Longint;
	F : Boolean;

Begin
	WriteLn;
	Write('Введите значение X:   ');
	ReadLn(X);
	S := 0;
	I := 0;
	Y := X;
	F := True;
	While F Do Begin
		Inc(I);
		Y := sin(Y);
		If Y < Eps Then F:=False;
		S := S + Y;
		WriteLn(I:5,' ',S:4:5,' ',Y:4:5);
	End;
	WriteLn('Число членов ряда:   ',I);
	WriteLn('Сумма членов ряда:   ',S);
	WriteLn('Последний член ряда: ',Y);
	Repeat Until KeyPressed
End.