Programa Incógnita

program Incognita;
	var x: integer;

process P1;
	var i: integer;
begin
	for i:=1 to 5 do
	begin
		x:=x+1;
		writeln('P1: x=',x);
	end;
end;

process P2;
	var j: integer;
begin
	for j:=1 to 5 do
	begin
		x:=x+1;
		writeln('P2: x=',x);
	end;
end;

begin
	x:=0;
	writeln('INI x=',x);
	cobegin
		P1;
		P2;
	coend;
	writeln('FIN x=',x);
end.


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