Fonction Puis

function puis (entier,facteur:LongInt):LongInt;
Var
j,i:LongInt;
Begin
    j:=1;
    for i:=1 to facteur Do
        j:=j*entier;
    puis:=j;
end;