Örnek olarak ;
function deneme(a:integer):intger;
Begin
if a=1 then toplam:=1
else
toplam:= a + deneme(a-1);
End;
Yukarıda görüldüğü gibi fonksiyonun içinde gene o fonksiyonu çağırdık. Bu işlem tersten yapmaya başlanır yani 1 + 2 + 3 ..... a şeklinde toplandıktan sonra sonuç bulunur.
Bu fonksiyon kendine gelen pozitif bir sayıyı ;
0 dan o sayıya kadar olan toplamları bulur.