Potenz einer Zahl

[Klaus01]

Das sollte ungefähr so ausssehen:

Delphi-Quellcode:

var
  i,zahl, exp : Integer;

if exp = 0 then
  zahl := 1
else
  if exp > 1 then
    for i := 2 to exp do
      zahl:= zahl * zahl:

Grüße
Klaus