Вычислить sinX + sin(sinX) + sin(sin(sinX)) + … + sin(sin(…sinX)…) для N=12 с помощью оператора for-next, while-wend, REPEAT — UNTIL — Pascal(Паскаль)

Uses Crt;
const n=12;
var x,a,S:real;
i:integer;
begin
readln(x);
a:=sin(x); S:=0; i:=1;
repeat
  begin
  a:=sin(a);
  S:=S+a;
  inc(i);
  end;
until i=n;
writeln(S);
end.