Вычислить функцию! Опции

[-Maks-]

Помогите, пожалуйста, решить задачу:

Вычислить с применением repeat ... until: b=1+(xlna)/1! + ((xlna)^2)/2! + ... + ((xlna)^n)/n!=a^x. Исходные данные: епсилон=0,01, х=3.0, альфа=2,5. Ответ: 15,62.

[MoM]

Вот пробовал решить ф-цию:

Код

uses crt;
var delta,x,a,epsilon,b:real;
    i,k:Integer;
begin;
delta:=1;
b:=delta;
epsilon:=0.01;
k:=0;
readln(x,a);
repeat
inc(k);
delta:=exp(k*ln(x*ln(a)))/k;
b:=b+delta;
until (delta>epsilon);
writeln(b);
readln;
end.

Как описать факториал?