#pas
function Power(st,nm:integer):integer;
var i:integer;
begin
  Result := nm;
  for i:=1 to st-1 do Result := Result*nm;
end;