Сумма рядов в делфи

[PAHASTAR]

Добавьте пожалуйста интервал ввода х

repeat
a:=(power(-1,n+1)*power(tan(x),n))/(n*(n+1));
n:=n+1;
s:=s+a;
until abs(a)<eps;
Memo1.Lines.Add('Результат:= '+FloatToStrf(s,fffixed,5,6));
end;