Оператор цикла

[Yar_]

Помогите пожалуйста! Не могу понять как код написать. Delphi 7

[evg_m]

e:=...;
x:=...;
s:=0;
k:=0;
d:=(-1)*(x/3)*(x/3) /(1*2*3*4) /(1*2);
repeat 
   k:=k+1;
  d:=d * // предыдущее значение d  домножаем на что-то 
             (-1)*(x/3)*(x/3) / (k+4) / (2*k+2) /(2*k+2+1)
           ; // чтобы получить значение на текущем шаге
  s:=s+d;
until d<e;

За точность (правильность) вычислений d не уверен