обчислити суму послідовності

[Givshuk]

скласти програму для обчислення з точністю до е суми членів послідовності
додавати члени доки виконуеться рівність |a|>=e
a=3 в степени n/!n-факториал

[Givshuk]

uses crt;
var
factorial: longint;
i,n:integer;
a, e, s :real;
begin

writeln('e');
read (e);
n:=1;
s:=0;
repeat
factorial:=1;
for i:=1 to n do
begin
factorial:=factorial*i;
writeln('n!=',factorial);
end;
a:=power(3,n)/factorial;
s:=s+a;
writeln('s',s:10:5,' a' ,a:10:5);
n:=n+1;

until abs(a)>=e;
end.