Ejemplo 2

program Ejemplo2;

process type Proceso (s:integer);
begin
   repeat
     writeln(s);
   forever
end;

var a,
b: Proceso;   (* creación de procesos *)

begin
   cobegin
     a(1);
     b(2);
   coend;
end.


Última actualización: 26 de febrero de 2004
abia@dlsi.ua.es