Дано натуральное число N и действительное число Х. Вычислить: S=Sin(x)+Sin(Sin(x))+Sin(Sin(Sin(x)))+…+SinSin…(Si nx) (N-раз). Вычисления произвести тремя способами. — Pascal(Паскаль)

uses crt;
var s,sn,x:real;
i,n:integer;
 
begin
 clrscr;
 write('N X-> ');
 readln(n,x);
 s:=0;
 sn:=sin(x);
 for i:=1 to n do
 begin
  s:=s+sn;
  sn:=sin(sn);
 end;
 writeln('S=',s:0:4);
 readln;
end.

uses crt;
var s,sn,x:real;
i,n:integer;
 
begin
 clrscr;
 write('N X-> ');
 readln(n,x);
 s:=0;
 sn:=sin(x);
 i:=1;
 while i<=n do
 begin
  s:=s+sn;
  sn:=sin(sn);
  inc(i);
 end;
 writeln('S=',s:0:4);
 readln;
end.

uses crt;
var s,sn,x:real;
i,n:integer;
 
begin
 clrscr;
 write('N X-> ');
 readln(n,x);
 s:=0;
 sn:=sin(x);
 i:=1;
 repeat
  s:=s+sn;
  sn:=sin(sn);
  inc(i);
 until i>n
 writeln('S=',s:0:4);
 readln;
end.