Как вывести рекуррентную формулу ?

[paneev02]

 program lab7;const e=0.001;x=3;var x1,s,t:real;n:integer;beginx1:=x/3;n:=0;t:=x1;s:=t;while abs(t)>e dobeginn:=n+1;t:=t*x1*x1/(2*n)/(2*n+1);s:=s+t;end;writeln('S=',s:0:4);write('sh(x/3)=',(exp(x1)-exp(-x1))/2:0:4);end.

[ur_naz]

Нужно разделить Ai/Ai-1