package body KaH is

	function Alapterulet ( k: KorAlapuHasab ) return POSITIVE is
	begin
		return 3*k.sugar**2;
	end Alapterulet;

end KaH;