program qq;
var n,i:integer;
P:real;
begin
P:=1;
read(n);
for i:= 1 to n do begin
if n = 1 then continue;
P:=(1 - (1/sqr(n)))* P;
end;
write(P);
end.
Объяснение:
continue т.к формула начинается с двух.
