Contoh Penggunaan Fungsi

Uses wincrt;
var
n:Integer;
Fuction AAA (N:Integer):Integer;
Begin
if N=0 then
AAA:=1
else
AAA:=n*AAA(N-1))
end;
Begin
readln(n)
Writeln (AAA(N));
readln();
end.