1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TBaum.potenz(basis:Integer;exponent:Integer):Integer;
 VAR ergebnis:Integer;
begin
  If exponent = 0 then result:=1;
  if exponent = 1 then result:=basis else
  begin
    if exponent mod 2 = 0 then
    begin
      ergebnis:=potenz(basis, exponent div 2);
      result:=ergebnis*ergebnis;//Bis Hier
    end else 
      result:=potenz(basis, exponent-1)*basis;
  end;
end;