77 в , пожалуйста срочно составить ** языке паскаль

Question

77 в , пожалуйста срочно составить на языке паскаль

---

Answer 1

Program p77v;

var
  p:real;
  i,n:integer;

begin
  Write('n='); Read(n);
  p:=1;
  for i:=1 to n do p:=p*(1+1/(i*i));
  Writeln('П=',p)
end.

Пример
n=10
П=3.34284711657368

Во вложении дан контрольный пример.

---