думаю так.
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.