package body Hasabok is

	function Terfogat ( h: Hasab'Class ) return POSITIVE is
	begin
		return Alapterulet(h)*h.magassag;
	end Terfogat; 

end Hasabok;