program version_dos

var p1adentro, p2adentro: boolean;

procedure proceso_uno;

begin

while true do

begin

p1adentro := true;

seccion_critica_uno;

p1adentro :=false;

otras_tareas_uno

end

end;

procedure proceso_dos;

begin

while true do

begin

while p1adentro do;

p2adentro:=true;

seccion_critica_dos;

p2adentro:=false;

otras_tareas_dos

end

end

p1adentro:=false;

p2adentro:=false;

proceso_uno;

proceso_dos

�

�

�