Как выполнить данную операцию на паскале? вычислить (1+(1/( *(1+(1/(* (1+(1/( *(1+(1/( если кому легче то вот как оно же выглядит на паскале (1+(1/(1* *(1+(1/(2** (1+(1/(3* *(1+(1/(n*

Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
writeln('p = ',p);
end.

Пример:
n = 5
p = 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.