Delphi. Pascal
Урок 13. Рекурсивные функции

//Объявление функции.
function fact(X: Integer): Integer;
begin
 if X>1 then
 //Функция fact вызывает саму себя.
 fact:=X*fact(X-1)
 else
 fact:=1;
end;
var
 r: Integer;
begin
 //Вызов функции.
 r:=fact(4);
 Writeln(r);
 Readln;
end.