Вычислить (1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!
Var i,p:real; begin i:=0.1; p:=1; while (i<=10) do<br> begin p:=p*(1+sin(pi*i/180)); i:=i+0.1; end; writeln ('Rezultat: ',p); readln; end.