with Alakzatok, text_io; use Alakzatok, text_io;
package body Teglalapok is

	package FIO is new FLOAT_IO(FLOAT); use FIO;

	function Beolvas( f: in FILE_TYPE := CURRENT_INPUT ) return Teglalap is
		t: Teglalap;
	begin
		Get(f,t.a); Get(f,t.b);
		return t;
	end Beolvas;

	procedure Kiir( t: in Teglalap; f: in FILE_TYPE := CURRENT_OUTPUT ) is
	begin
		Put("A téglalap oldalai (a,b): "); Put(f,t.a); Put(f,t.b);
	end Kiir;

end Teglalapok;