program np00;

atomic procedure pisz(nr, i:integer);
begin
  writeln( nr, ":", i); i:=i+1;
end;

procedure proc(nr:integer);
var i:integer;
begin
  i:=0;
  while true do
  begin
    (* writeln(nr, ":", i); i:=i+1; *)
    pisz(nr, i); i:=i+1;
  end;
end;

begin
  cobegin
    proc(1); 
    proc(2); 
    proc(3);
  coend;
end.

