Sayının Faktöriyelini Bulan Algoritma

Merhabalar arkadaşlar, bir sayının faktöriyelini bulan algoritma yazabilir misiniz? Delphi 7 kağıt üzerine olacak da, yardım eder misiniz?

O dili bilmiyorum ama algoritma şöyle bir metod(fonksiyon) var bu metod integer değer alıyor. Metodun tipi integer. Aldığı değişkenin ismi sayı olsun içinde bir tane if var sayı 1e ve 0e eşitse return 1 işlemini yapıyor değilse return sayı*kendini sayı-1 ile çağırıyor. Bu tarz yapılarlara recursive fonksiyon deniyor türkçede özyinelemeli olarak geçiyor.

Örnek olarak java dilinde yazıyorum
public int fktryl(int sayi){
[BGCOLOR=transparent]if(sayi==0 || sayi==1)[/BGCOLOR]
[BGCOLOR=transparent] return 1;[/BGCOLOR]
[BGCOLOR=transparent]else [/BGCOLOR]
[BGCOLOR=transparent] return sayi*fktryl(sayi-1);[/BGCOLOR]
[BGCOLOR=transparent]}[/BGCOLOR]