mengitung faktorial dengan function

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.