Вычислить с оператора оператора цикла сумму и произведение последовательности чисел: 1/3; 1/5; 1/7; /23

Var
i,n:integer;
s,p:real;
begin
s:=0; p:=1;  n:=3;
for i:=1 to 11 do
begin
s:=s+1/n;
p:=p*1/n;
n:=n+2;
end;
writeln('summa: ',s);
writeln('proizvedenie: ',p);
end.