Задача, помогите

[YUps]

Ребят помогите найти ошибку
9.png

var i,n,k:integer;
x,q,a1,a2,sum2,a4,fac2,fac,l,sum:real;
BEGIN
writeln('Введите n');
readln(n);
writeln('Введите x');
readln(x);
begin
fac:=1;
for i:=1 to n do
fac:=fac*i;
q:=1/fac
end;
begin 
fac2:=1;
for k:=1 to n do
a1:=exp(n*ln(-1));
fac2:=fac2*k;
a2:=(exp(k*ln(x)))/(fac2+1);
a4:=a1*a2;
end;
sum:=q*a4;
writeln('Сумма равна ',sum);
END.

[Вадим Мошев]

В какой строке ошибка? И в чём она заключается? Сообщение об ошибке или выдаёт неверный результат?

Ну вот, сразу видно: зачем вы пишете begin/end в программе без всякой надобности?

[type_Oleg]

И вообще, можно же было не скрин выложить, а скопировать текст, и желательно вставить между тегами .

Тогда кто-нибудь мог бы просто скопировать у вас, и попробовать на своем компиляторе.
А так - не у кого не будет желания все это писать с экрана.

Кстати, x лучше не возводить в степень, а вычислять через предыдущий член, x^k = x*x^(k-1)