PROGRAM Ej2Pract6_parteB

P(id: in Integer){
BEGIN
send (AUX, id);//solicitud de ingreso a la seccion critica
			// se bloqueara si aux no esta dispuesto a 				//dar permiso para entrar a la seccion
SECCION_CRITICA

receive() //recibe el NULL de AUX para que aux se desbloquee
END;}


AUX {
VAR id :Integer;
BEGIN
LOOP 
receive(id);
send(P(id), NULL)
End Loop
END; }

BEGIN
COBEGIN P(1), P(2), . . P(n), AUX COEND;
END.