program CalculateExpression;

var
i: integer;
result: real;

begin

result := 1;

for i := 1 to 10 do
begin
result := result * (1 + sin(i/10));
end;

writeln('Result: ', result:0:5);

end.