50 баллов помогите с информатикой

var eps,e,s: real;

k: integer;

begin

write('Введите Eps: ');

readln(eps);

s:=0;

k:=1;

e:=(k+2)/((k*k*k)+4);

while e>abs(eps) do begin

s:=s+e;

inc(k);

e:=(k+2)/((k*k*k)+4);

end;

writeln('Сумма ',k,' элементов равна ',s:5);

end.