Проверьте пожалуйста задачу которую я решил в паскале, так как я изучаю паскаль очень мало времени и самостоятельно!!!
Задача: Составьте программу для вычисления суммы ряда S=1/2²+3/4²+5/6²+7/8²+9/10²+... с точностью до члена ряда, не превышающего по абсолютной величине 0.001.

Решение:
Var s,h,d:real;
i:integer;
begin
d:=0.001;
s:=0;
i:=0;
repeat
i:=i+1;
h:=((2*i)-)1/sqr(2*i);
s:=s+h;
until h<d;
writeln('Сумма ряда: ',s:10:10);
writeln('Количество членов ряда: ',i);
readln;
end.

Ответ выдаваемый программой:
Сумма ряда: 2.1272298361
Количество членов ряда: 91

P.S. Знаю пока тока один циклический оператор, так что если можно будет её решить короче и быстрее прошу написать как ещё можно её решить, если вам будет не трудно!!

Заранее огромное спасибо!!!