Función de potencia

Function potencia(base:real; exponente:integer):real;
    Var
        resultado:real;

    Begin
        resultado := 1;
        while(exponente > 0) do
            begin
                resultado := resultado*base;
                exponente := exponente - 1;
            end;
        potencia := resultado;
    end;