Вычислить (1+sin0.1)(1+sin0.2) (1+sin10) для free pascal.

Var i,p:real;
begin
  i:=0.1;
  p:=1;
  while (i<=10) do
    begin
       p:=p*(1+sin(pi*i/180));
       i:=i+0.1;
    end;
  writeln ('Rezultat: ',p);
  readln;
end.