как выполнить данную операцию на паскале? вычислить (1+(1/(1^2))) *(1+(1/(2^2)))* (1+(1/(3^2))) ...*(1+(1/(n^2)))


если кому легче то вот как оно же выглядит на паскале (1+(1/(1*1))) *(1+(1/(2*2)))* (1+(1/(3*3))) ...*(1+(1/(n*n)))

Спасибо огромное))

var n,i:integer;p:real;beginwrite('n = ');readln(n);p:=1;for i:=1 to n do p:=p*(1+1/(i*i));writeln('p = ',p);end.Пример:n = 5p = 3.06944444444444

Var  n, i :integer;  resault :real;Begin  write('n = '); readln(n);  resault := 1;    for i:= 1 to n do    resault *= 1 + (1 / sqr(i) );  Writeln('Результат: ', resault)End.