Последовательности и ряды. Прогрессии и рекурсия

[twonislatex]

нужно решить программу с использованием repeat

function f(k:integer):longint;
    var p,i:longint;
begin p:=1;
    for i:=1 to k do p:=p*i;
    f:=p end;
var i:integer;
  p:longint;
begin
   p:=0;
   for i:=1 to 5 do p:=p+f(2*i-1);
writeln(p);
readln
end.

это верная программа, но мне нужно чтобы она была через repeat + программа должна запрашивать е(эпсилон) у пользователя и чтобы программа выполняла перебор чисел через формулу

[ViktorR]

Например:

a := 1.0;
an := 1.0;
i := 1;
eps := 0.0005;
repeat
   an := an * 10/i;
   a := a + an;
   i := i + 1;
until (an <= eps);

Как-то так, ...