View difference between Paste ID: yP17ATES and eEcVFisf

-program FILO4;
+program intento3;
 var s1:boolean;
-var p: array [0..4] of semaphore;
+	s2:boolean;
 
-	k : integer;
+process p1;
 begin
-process type filosofopar (i:integer);
+
 	while s2=true do;
 		s1:=true;
-	{piensa	}
+
-	writeln('filosofo ',i,' piensa');
+		writeln('ingresando a la seccion critica p1');
-	wait(p[(i+1) mod 5]);
+
-	wait(p[i]);
+		s1:=false;
-	{come}
+
-	writeln('filosofo ',i,' come');
+
-	signal(p[i]);
+
-	signal(p[(i+1) mod 5]);
+process p2;
-	writeln('filosofo ',i,' piensa');
+
-	Sleep(random(3));
+
 	while s1=true do;
 		s2:=true;
 
-process type filosofoimpar (i:integer);
+		writeln('ingresando a la seccion critica p2');
 
 		s2:=false;
-	{piensa	}
+
-	writeln('filosofo ',i,' piensa');
+
-	wait(p[(i+1) mod 5]);
+
-	wait(p[i]);
+
-	{come}
+	s1:=false;
-	writeln('filosofo ',i,' come');
+	s2:=false;
-	signal(p[i]);
+
-	signal(p[(i+1) mod 5]);
+	cobegin
-	writeln('filosofo ',i,' piensa');
+	p1;
-	Sleep(random(3));
+	p2;
 	coend
 end.