package body Hasabok.Kockak is

	function Alapterulet ( k: Kocka ) return POSITIVE is
	begin
		return k.magassag ** 2;
	end Alapterulet;

end Hasabok.Kockak;