function powerof (base: integer; power: positive) return integer is
        result: integer;
    begin
        if power= 1 then
            return base;
        endif

    return base * powerof(base,power-1);
end powerof;