Calcula potência, qualquer base elevada a qualquer expoente.

Function Calculapotencia(base, potencia: integer): integer;
var
ind, resultado: integer;
begin
resultado := base;
for ind := 1 to (potencia -1) do
resultado := resultado * base;
Result := resultado;
end;