Potęga liczby

function potega(liczba,wykladnik)
number i,nResult;
begin           
 nResult=0;
 if (wykladnik>0) then  
  nResult=1;                 
  for i=1 to wykladnik 
   nResult=nResult*liczba;
  endfor;   
 else  
  nResult = 1;
 endif;       
return nResult; 
end;