function powerof (base: integer; power: positive) return integer is
		result: integer;
	begin
		if power= 1 then
			result:= base;
		else
			result:= base * powerof(base,power-1);
		end if
	return result;