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

// nur für ganzzahlige Werte
// x>0, y>=0, x^0=1
function XhochY(x, y:Integer):Int64;
var i:Integer;
begin
  Result:=1;
  if (y>0) then for i:=1 to y do Result:=Result*x;
end; // XhochY

var 
  erg:Int64;
  ...
  erg:=XhochY(2, 4);
  Label1.Caption:=IntToStr(erg);
  ...                    

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

function potenz (basis : Real; exponent : Integer) : Real;
VAR ergebnis : Real;
begin
  if exponent = 1 then result:=basis else
  begin
    if exponent mod 2 = 0 then
    begin
      ergebnis:=potenz(basis, exponent div 2);
      result:=ergebnis*ergebnis;
    end else result:=potenz(basis, exponent-1)*basis;
  end;
end;