Вычислить с точностью e (эпсилон)

[Raphael]

Даны действительные числа (x не равен 0, e>0) Вычислить с точностью e :



Правильно ли я написал программу?

var
  s, x, e, buf: real;
  k: integer;

begin
  write('Insert x, e:');
  readln(x,e);
  if x <= 1 then
    begin
      buf := x;
      k := 0;
      while abs(buf) >= e do
        begin
          s := s+buf;
          inc(k);
          buf := -buf*x*x*x*x*(4*k-3)/(2*k*(2*k-1)*(4*k+1));
        end;
      writeln('S = ',s:0:8);
    end
  else
    writeln('S is as big as Elephant!');
  readln;
end.