h:=((2*i)-)1/sqr(2*i);
h:=(2*i-1)/sqr(2*i)
Хочу учесть, когда говорится "абсолютная величина" - это имеется ввиду модуль числа. Здесь это конечно не нужно, но если в членах ряда будут отрицательные числа, они и так будут меньше 0.001 и цикл прерывается в вовремя.