package body Hasabok is

	procedure Magassagot_Beallit( h: in out Hasab'Class; m: in POSITIVE) is
	begin
		h.magassag := m;
	end Magassagot_Beallit;

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

end Hasabok;