unit nub;

 interface

function Power(st,nm:integer):integer;

implementation 

function Power(st,nm:integer):integer;
var i:integer ;
  begin
   for i:=0 to st do nm:=nm*nm;
  Power:= nm;
 end;

end.