Решить задачу табулирования x*x+summa(x+i*i)/(2x+i)+x*proizvedenie sqrt(j), gde i=2,j=2, сумма до m, произведение до m+1 — Pascal(Паскаль)

function Summ(a: integer; z: double): double;
var
  sum: real;
begin
  sum := 0;
  for i := 2 to a do
    sum := sum + (z + sqr(i)) / (2 * z + i);
  Summ := sum;
end;

function Prz(a: integer): double;
var
  pr: double;
begin
  pr := 1;
  for i := 2 to a do
    pr := pr * sqrt(i);
  Prz := pr;
end;

begin
  clrscr;
  write('m=');
  readln(m);
  write('x=');
  readln(x);
  y := sqr(x) + Summ(m, x) + Prz(m + 1);
  writeln('y=', y:5:3);
  readln

end.