Вычислить: (1+sin0,1)(1+sin0,2)*...*(1+sin10). (программа Паскаль)

Question

Вычислить:
(1+sin0,1)(1+sin0,2)*...*(1+sin10).

Answer 1

var
 result,index:real;
 begin
 index:=0.1;
 result:=1+sin(index);
 while index<=10 do
  begin
   index:=index+0.1;
   result:=result*(1+sin(index));
  end;
  Writeln(result:4:25);
 end.