Question

Помогите пожалуйста! Паскаль

Дано число n, найти P=(1-1/2^2 )*(1-1/3^2 )*(1-1/4^2 )*...*(1-1/n^2 )

Answer 1

var ans:real;n,i:integer;
begin
readln(n);
ans:=1;
for i:=2 to n do ans:=ans*(1-1/sqr(i));
writeln(ans);
end.

Answer 2

var i,n:integer;

   p: real;

begin

   p:=1;

   realn(n);

   for i:=2 to n do

      p:=p*(1-1/i/i);

   writeln(p)

end.