Factorial

function factorial(numero:integer):integer;
    var
        I, auxiliar:integer;

    begin

        auxiliar := 1;

        For I := 2 to numero do
            auxiliar := auxiliar * I;

        factorial := auxiliar;

    end;