with text_io; use text_io;
package body Teglalapok.Negyzetek is

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

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

	procedure Kiir( n: in Negyzet; f: in FILE_TYPE := CURRENT_OUTPUT ) is
	begin
		Kiir(Teglalap(n),f);
		Put(", merthogy en negyzet vagyok ");
	end Kiir;

end Teglalapok.Negyzetek;