Program Function

program perkalian;

uses wincrt;

var n : integer;

function factorial (n : integer) : integer;
var a, hasil : integer;
begin
    for a := n downto 2 do
    begin
        write (a,'*');
    end;
    hasil := 1;
    for a := n downto 1 do
    begin
        hasil := hasil * a;
    end;
    write ('1','=',hasil);
end;

begin
    writeln ('@@@@@@@@@@@@@@@@@@');
    writeln ('@     PROGRAM FAKTORIAL             @');
    writeln ('@       PERKALIAN BERULANG          @');
    writeln ('@          alfian_bisma@yahoo.com            @');
    writeln ('@@@@@@@@@@@@@@@@@@');
    writeln;
    write ('Masukkan Bilangan : ');readln (n);
    writeln;
    factorial (n);
end.