with Balinverz, Text_IO; use Text_IO;
procedure Demo is
	type Felcsoport is new INTEGER range -30000..40000;
	procedure BI is new Balinverz(Felcsoport,0);
	package IO is new Integer_io(Felcsoport); use IO;

	x,y: Felcsoport;
	van: BOOLEAN;
begin
	New_Line; Put("Melyik szamnak szamoljam a balinverzet? [");
	Put(Felcsoport'First); Put(".."); Put(Felcsoport'Last);
	Put("]: "); Get(x);

	BI(x,y,van);
	if van	then Put(y); else Put("nincs"); end if; New_Line(2);
end Demo;