with text_io; use text_io;
procedure Osztott2 is

	task type Kiiro is
		entry Init ( s: in STRING := "" );
	end Kiiro;

	a, b: Kiiro;

	task Osztott_Kepernyo is
		entry Kiir ( s: in STRING );
	end Osztott_Kepernyo;

	task body Osztott_Kepernyo is
	begin
		loop
			accept Kiir ( s: in STRING ) do
				Put_Line(s);
			end Kiir;
		end loop;
	end Osztott_Kepernyo;

	task body Kiiro is
		type PStr is access STRING;
		nev: PStr;
	begin
	  accept Init ( s: in STRING := "" ) do 
	  	nev := new STRING(1..s'length);
		nev.all := s;
	  end Init;
	  for i in POSITIVE'range loop
	    Osztott_Kepernyo.Kiir(nev.all & POSITIVE'IMAGE(i));
	  end loop;
	end Kiiro;

begin
	a.Init("Jancsi"); b.Init("Julcsa");
end Osztott2;