Viết chương trình tính tổng A= 1 + 1/2² + 1/3²/+…+ 1/N²

Var i,n: integer;

      A: real;

begin 

          read(n);

          A:=0; i:=1;

          While i<=n do

          begin

          A:= S+1/(i*i);

          i:=i+1;

          end;

Write(A);

End.