PI

[Noedel]

du hast da auch ein begin und ein end vergessen

Delphi-Quellcode:

if zahl2 < 0 then
  begin
    showmessage ('Nicht erlaubt');
  end;
  if zahl2 > 0 then
  begin
    n := 1;
    y := zahl;
    while n < zahl2 do
    begin //hier begin vergessen!
      zahl := zahl * y;
      n := n + 1;
    end; //und das dazugehörige end;
  end
   else
    zahl := 1;
  end;