var cislo, mocnina,i,vysledok: integer;
begin
cislo:= strtoint (edit1.Text);
mocnina:= strtoint (edit2.Text);
vysledok:=1;
if (cislo=0) and (mocnina=0) then showmessage ('ne')
else
for i:= 1 to mocnina do
begin
  vysledok:= vysledok * cislo;

end;
label1.Caption:= inttostr (vysledok);
end;

end.