Вычислить

[p-6]

Функция прикреплена

[VIK_aka_TOR]

var
proizv,x : real;
i : integer;
begin
proizv := 1;
x := 0,1;// или 0.1 не помню как компилятор пропускает.
while (x <= 10) do
  begin
    proizv := proizv * (1 + sin(x));
    x := x + 0,1; 
  end;
writeln(proizv:7:7);
end.

p.s. возвожно в sin(x) конвертить радианы в градусы или наоборот