Faktorial ( Pemrograman Terstruktur )

program coba; uses crt; function faktorial (n:integer) : integer; begin if n = 0 then faktorial := 1 else faktorial := n * faktorial(n-1); end; begin writeln(faktorial(4)); readln; clrscr; end.