Вычислить сумму конечного числа слагаемых

Вычислить сумму конечного числа слагаемых. При вычислении ряда использовать рекурентное соотношение. Значение х,начальное и конечное значение параметра добавления ввести с клавиатуры

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var k:integer;
x,t,s:double;
begin
write('x=');readln(x);
k:=1;s:=0;t:=1;
while k<=9 do
begin
t:=t*ln(3)*x/k;
s:=s+t;
k:=k+1;
end;
writeln('Summa=',s:5:3);
readln
end.

автор: Puporev