with Hasabok; use Hasabok;  -- azert kell, mert a Terfogat-ban 'Class is van
with Hasabok.Kockak, KaH; use Hasabok.Kockak, KaH;
with text_io; use text_io;
procedure Proba is
	k: Kocka;
	kh: KorAlapuHasab;
begin
	Magassagot_Beallit(k,10);
	put_line(POSITIVE'IMAGE(Terfogat(k)));
	Magassagot_Beallit(kh,5); Sugarat_Beallit(kh,2);
	put_line(POSITIVE'IMAGE(Terfogat(kh)));
end Proba;