var numero_proceso: integer ;
procedure proceso_uno
begin
while true do
begin
while numero_proceso =2 do
seccion_critica_uno;
numero_proceso:=2;
otras_tareas_dos
end
end
procedure proceso dos;
begin
while true do
begin
while numero_proceso=1 do
seccion_critica_dos
numero_proceso:=1;
proceso_dos_proceso
end
end
begin
numero_proceso:=1;
parbegin
Proceso_uno
Proceso_dos
parend
end.