Obliczanie wyrazu a1000

Witam mam do zrobienia zadanie lecz nie bardzo wiem jak to zaimplementować w postaci rekurencji. Treść zadania jest następująca: Napisz program rekurencyjny obliczający wyraz a₁₀₀₀ ciągu {a_n} zapisanego wzorem a_n=1.1*a_n-1 , a₀=1. Nie bardzo wiem jak to zrobić przy pomocy rekurencji. Bardzo proszę o szybko pomoc. Dziękuje.

begin
  for n:=10 to 20 do WriteLn('a[',n,']=',Ciag(n));
end;

Do tego masz dostosować tą funkcje
function Ciag(I:Integer):Double;