Contoh Program Faktorial dengan menggunakan Bahasa Paskal

program contohfungsi4;
uses wincrt;
function Faktorial(Nilai : integer) : real;
begin
     if Nilai = 0 then
        Faktorial := 1
     else
         Faktorial := Nilai * Faktorial(Nilai-1);
end;
var
   N : integer;
begin
     write('Berapa faktorial ? ');
     readln(N);
     writeln(N,'  faktorial = ',Faktorial(N):4:0);
end.