with text_io; use text_io;
package Teglalapok.Negyzetek is
	type Negyzet is new Teglalap with private;
	function Beolvas( f: in FILE_TYPE := CURRENT_INPUT ) return Negyzet;
	procedure Kiir( n: in Negyzet; f: in FILE_TYPE := CURRENT_OUTPUT );
private
	type Negyzet is new Teglalap with null record;
end Teglalapok.Negyzetek;