Составьте рекуррентную формулу, используя которую для заданного с клавиатуры значения m и x (3>x>0), найдите сумму S: — Pascal(Паскаль)

uses crt;
var m,n:integer;
    x,t,s:real;
begin
clrscr;
repeat
write('0<x<3  x=');
readln(x);
until(x>0)and(x<3);
write('m=');
readln(m);
s:=0;
t:=1;
for n:=1 to m do
 begin
  t:=t/n;
  s:=s+exp(ln(2)*x)*t;
 end;
write('S=',s:0:4);
readln
end.