rekursi vs looping

program rekursi_vs_looping;
uses crt;

// fungsi rekursi
function faktorial_rec(n: integer): integer;
begin
    if n = 0 then
        faktorial_rec := 1
    else
        faktorial_rec := n * faktorial_rec(n-1);
end;

// fungsi looping
function faktorial_loop(n: integer): integer;
var i, hasil: integer;
begin
    hasil := 1;
    for i := 1 to n do
        hasil := hasil * i;
    faktorial_loop := hasil;
end;

var angka: integer;
begin
    clrscr;
    write('Masukkan angka: '); readln(angka);

    writeln('Faktorial menggunakan rekursi: ', faktorial_rec(angka));
    writeln('Faktorial menggunakan looping: ', faktorial_loop(angka));
end.