вроде так
Объяснение:
var p:real;i,n:integer;
begin
write('n=');
readln(n);
i:=2;
p:=1;
while i<=n do
p:=p*(1-1/sqr(i));
inc(i)
end;
writeln(p)
end.
