Тригонометрия

var
  a,s,t,z,y:real;
  n:integer;
begin
  a:=ReadlnReal('a=');
  n:=ReadlnInteger('n=');
  s:=sin(a);t:=s;
  for n:=2 to n do begin t:=t*s;z:=z+t;end;//b.
  for n:=2 to n do begin s:=sin(s);y:=y+s;end;//a.
  writeln('a. ответ:',y:0:6);
  writeln('b. ответ:',z:0:6);
end.

var a,b,s:real;
    n,i:integer;
begin
write('Введите действительное число a=');
readln(a);
write('Введите натуральное число n>0 n=');
readln(n);
b:=sin(a);
s:=0;
for i:=1 to n do
 begin
  s:=s+b;
  b:=sin(b);
 end;
write('s=',s:0:3)
end.

b:=sin(a);
s:=0;
for i:=1 to n do
 begin
  s:=s+b;
  b:=b*sin(a);
 end;