Степень е

[Vadim7721]

Помогите составить программу, нужно найти сумму ряда с точностью e=10^-3 , общий член которого

[Donald Ervin Knuth]

program progatest30;
const
e=0.001;
var
n:integer;
prom,s:real;
function fa (t:integer):integer;
  begin
    if t=0 then fa:=1
    else fa:=t*fa(t-1)
  end;
function stepen1(ch,st:integer):integer;
var 
g,f:integer;
begin
  if st<>0 then
  begin
  g:=ch;
  for f:=1 to st-1 do
  g:=g*ch;
  stepen1:=g;
  end
  else
  stepen1:=1;
end;
begin
  s:=0;n:=1;
  repeat
  prom:=stepen1(3,n)*(fa(n)/fa(3*n));
    s:=s+prom;
    n:=n+1;
    until prom<e;
    writeln('Количество членов ряда',n:5,'  Результат==',s:10)
end.

[Arigato]

Степени и факториалы можно в основном цикле считать.