viết chương trình tính tổng sau:y=1+1/4+1/9+1/16+…+1/100

Uses crt;
Var y:real;
I:integer;
Begin
Clrscr;
Y:=0;
For i:=1 to n do
Y:= y+ 1/sqr(i);
Write(‘tong s = ‘,s);
Readln;
End.