Вычислить сумму бесконечного ряда с точность EPS - Turbo Pascal

var e,t,s:real;
    n:integer;
begin
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=1;
while abs(t/n/n/n/n)>e do
 begin
  n:=n+1;
  t:=-t;
  s:=t/n/n/n/n;
 end;
write('S=',s:0:5)
end.