Factor & Pangkat Unit

unit pngkt;

interface

function pangkat(a,b : integer) : longint;

implementation

function pangkat(a,b : integer) : longint;

var

i,x:integer;

begin

    x:=1;

    for i:=1 to b do

    begin

        x:=x*a;

    end;

    pangkat:=x;

end;

end.

Unit faktor;

interface

function faktorial (k:integer):longint;

implementation

Function faktorial (k:integer):longint;

Begin

if (k=0) then

faktorial:=1

else

faktorial:=k*faktorial(k-1);

end;

end.