Ответ:

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 т.к формула начинается с двух.