думаю так.
var i,n:integer; p:real;begincls;write('write n '); readln(n);for i:=2 to n dobeginp:=p+(1-(1/sqr(i)));end;writeln(p);readln;end.
думаю так.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.