Вычисление произведения синусов, почему-то получается 0 Опции

[Лита]

Задача такая: Вычислить (1+sin(0.1))(1+sin(0.2))...(1+sin(10))...
Составила следующую программу:

Код

var i,s,f:extended;
BEGIN
i:=0;
s:=1;
Repeat
i:=i+0.1;
f:=1+sin(i);
s:=s*f;
Until i>10;
writeln('summa=',s:10:2);
END.

в итоге он мне выводит ноль... при увеличении количества выводимых знаков после запятой выводит summa=0.000000000000017298. Думаю, что таким малым числом можно пренебречь.
И встал вопрос: правильный ли результат я получаю?

[FreeMan]

Алгоритм правильный, значит и результат правильный.