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

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

	function Beolvas( f: in FILE_TYPE := CURRENT_INPUT ) return Kor is
		k: Kor;
	begin
		Get(f,k.sugar);
		return k;
	end Beolvas;

	procedure Kiir( k: in Kor; f: in FILE_TYPE := CURRENT_OUTPUT ) is
	begin
		Put("A kör sugara: "); Put(f,k.sugar);
	end Kiir;

end Korok;