Вычислить значение суммы с заданной точностью - Pascal

Формулировка задачи:

Вычислить значение суммы S=2^(-2)+4^(-2)+6^(-2)+... с точностью до очередного члена <10^(-4)

Решение задачи: «Вычислить значение суммы с заданной точностью»

Листинг программы

const t=0.0001;
var
   s: double;
   a: array [1..100] of double;
   i,j: integer;
begin
   j:=2; s:=0; i:=1;
   a[1]:=1/sqr(2);
   while a[i]>=t do
      begin         
         s:=s+a[i];
         i:=i+1; j:=j+2;
         a[i]:=1/sqr(j);
         //writeln (a[i], '   ');//выводятся все члены ПС
      end;
   writeln ('Членов ПС: ', i, '. Сумма: ', s);   
end.

Объяснение кода листинга программы

Объявляются константа t со значением 0.0001, переменная s типа double (вещественное число) для хранения суммы, и массив a размером 100 элементов, каждый из которых - типа double для хранения последовательности чисел.
Объявляются переменные i, j типа integer (целое число).
Устанавливается значение j равным 2, s равным 0, и i равным 1.
Вычисляется значение первого элемента массива a[1] как обратной квадрат числа 2.
В цикле while проверяется каждый элемент a[i] массива, пока он больше или равен заданной константе точности t.
В теле цикла наращивается сумма s с каждым элементом a[i] и индекс i наращивается на 1, а индекс j наращивается на 2. Затем, значение следующего элемента массива a[i] вычисляется как обратная квадрат числа j.
Печатаются количество элементов в последовательности и их сумма.