with Hasabok; use Hasabok;  -- azert kell, mert a Terfogat-ban 'Class is van
with Kockak, KaH; use Kockak, KaH;
with text_io; use text_io;
procedure Proba is
	-- h: Hasab; -- nem mehet!
	k: Kocka;
	kh: KorAlapuHasab;
begin
	k.magassag := 10;
	put_line(POSITIVE'IMAGE(Terfogat(k)));
	kh.magassag := 5; kh.sugar := 2;
	put_line(POSITIVE'IMAGE(Terfogat(kh)));
end Proba;