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;