stav = kandidat
do
	if stav == kandidat then
		SendLeft(<KAMPAN,ID>)
		<typ,rID> = ReceiveRight;
		SendRight(<KAMPAN,ID>)
		<typ,lID> = ReceiveLeft;
		if lID == ID && rID == ID then
			stav = koordinator
			SendLeft(<VYHLASKA,ID>);
		fi
		if lID < ID || rID < ID then
			stav = neaktivny
		fi
	fi

	if stav == neaktivny then
		<typ,rID> = ReceiveRight;
		SendLeft(<typ,rID>)
		if typ == VYHLASKA then
			kID = rID;
			break;
		fi		
		<typ,lID> = ReceiveLeft;
		SendRight(<typ,lID>)
	fi
	
	if stav == koordinator then
		<typ,rID> = ReceiveRight;
		kID = ID;
		break;
	fi
forever