Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * ( 22/(2+1)2) * ( 32/(3+1)2) * … * (n2/(n+1)2) — Pascal(Паскаль)

function proizv(n:integer):real;
var i,f:integer; p:real;
begin
f:=2; p:=1;
for i:=1 to n do
begin
     f:=f+10;
     p:=p*(f/sqr(i+1));
end;
proizv:=p;
end;

function proizv(n:integer):real;
begin
  if n=1 then proizv:=3
  else
    proizv:=proizv(n-1)*(10*n+2)/((n+1)*2)
end;