func_faktorial

program m9c3;
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 ('berapakah faktorial ? ');
readln (n);
writeln (n, 'faktorial = ', faktorial (n):9:0);
end.