Bitte gewöhne dir gleich von Anfang an das Einrücken an, auch wenn es mehr Arbeit bedeutet... im Endeffekt spart es aber unheimlich viel Arbeit! Vielleicht fällt dir hier etwas auf:
Delphi-Quellcode:
if zahl2 < 0 then
begin
showmessage ('Nicht erlaubt');
end;
if zahl2 > 0 then
begin
n := 1;
y := zahl;
while n < zahl2 do
zahl := zahl * y;
n := n + 1;
end else
zahl := 1;
end;