with Alakzatok, text_io; use Alakzatok, text_io;
package Teglalapok is
	type Teglalap is new Alakzat with private;
	function Beolvas( f: in FILE_TYPE := CURRENT_INPUT ) return Teglalap;
	procedure Kiir( t: in Teglalap; f: in FILE_TYPE := CURRENT_OUTPUT );
private
	type Teglalap is new Alakzat with record
		a, b: FLOAT;
	end record;
end Teglalapok;